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Nota del traductor 


Los programas de este libro se han listado mediante una impre- 
sora Riteman F+:en un Spectrum con Interface 1. La ROM del Spec- 
trum fue reemplazada por una EPROM adaptada al hardware del 
mismo, que contenía una modificación para hacer posible la ejecución 
de los comandos COPY, LLIST y LPRINT tal como se efectuarían con 
el ZX Printer, conservando además la relación 1:1 horizontal/vertical 
con la que aparecen en pantalla. 

Hay un punto a tener en cuenta con los listados del programa 
que utilizan UDG: 

1) Ejecutar primero la rutina correspondiente del programa para 
que al pulsar las teclas en modo gráfico aparezcan en pantalla tal 
como en el listado del libro. Es necesario hacer esto sólo en la fase 
de entrar el programa. 


El contenido en detalle 


Esta colección de programas se ha agrupado en seis capítulos: 


1. Búsqueda de un archivo. El Spectrum como archivador 

1.1 Archivo: Este es un programa flexible que permite manejar 
cualquier archivo que contenga registros con una estructura regular 
de elementos tales como nombre, dirección, número de teléfono y 
edad. Se puede buscar, guardar, obtener, corregir y borrar cualquier 
número regular de elementos. 


2. Realización del presupuesto. El Spectrum como banquero 

En el último capítulo hemos estudiado las técnicas del manejo de 
datos no numéricos. En este capítulo trataremos con números y en 
particular con dinero. 

2.1 Presupuesto: Este es un programa de presupuestos muy fle- 
xible y bien formateado. 

2.2 Contabilidad: Este sencillo programa le ayudará a visualizar 
el estado de sus cuentas de una forma clara y fácil. 

2.3 Cuentas bancarias: Este programa es una inteligente herra- 
mienta que le permitirá mantener su propio registro financiero en 
forma parecida a la utilizada en los estados de cuentas bancarios. 
También utilizaremos por vez primera líneas multisentencia en el pro- 
grama. 


3. Dibujar. Gráficos del Spectrum 

3.1 Caracteres: Algunos de ustedes quizá ya hayan escrito un 
programa para definir caracteres. Sin embargo, éste es un buen pro- 
grama de utilidad para aquellos que no lo hayan hecho y constituye 
una sencilla introducción a algunas de las técnicas que utilizaremos 
en programas posteriores. 

3.2 Diccionario: Este corto programa aumenta en gran manera la 
utilidad del generador de caracteres, permitiéndole crear un diccio- 
nario de nuevos caracteres. 

3.3 Tangram: Este antiguo juego chino le dará una idea de las 
figuras geométricas que pueden dibujarse sin necesidad de funciones 
matemáticas complejas. 

3.4 Artista: Si va a realizar programas que utilicen dibujos como 
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parte de las visualizaciones en pantalla entonces, con la ayuda de 
este programa, podrá crear dibujos de una forma sencilla y después 
guardarlos. 

3.5 Diseño: Este programa le permitirá definir un dibujo de hasta 
65536 x 65536 pixels, añadir y borrar, examinarlo a varias escalas y 
girarlo, en su totalidad o parte del mismo, sobre la pantalla. 


4. Educación fácil. El Spectrum como tutor doméstico 

4.1 Respuesta múltiple: Se trata de un programa de elección múl- 
tiple que puede guardar hasta mil preguntas y respuestas distintas. El 
programa guarda sus datos en una serie de tablas bidimensionales y 
muestra muchas técnicas nuevas para el manejo de datos. Es un pro- 
grama sorprendentemente apasionante. 

4.2 Palabras: Este programa es una variación del de respuesta 
múltiple, cuya única diferencia real es que las preguntas se realizan 
mediante dibujos. Se puede utilizar para aprender a leer. 

4.3 Geografía: Es un programa poco complicado que comprueba 
de una forma efectiva sus conocimientos de geografía. El programa 
se construye mediante módulos que provienen del programa Artista, 
del capítulo 3. 


5. Programas de utilidad. Una colección de rutinas variadas 

5.1 Calculadora: Se trata de un programa que le permitirá entrar, 
de una forma fácil, una gran variedad de fórmulas y variables y utili- 
zarlas sin realizar cálculos repetitivos. Los resultados se visualizan en 
tablas fáciles de interpretar. 

5.2 Calorías: Si desea contar las calorías de sus comidas encon- 
trará de utilidad este programa. Sin embargo, su principal objetivo es 
mostrar lo rápido que puede ser el construir y utilizar diccionarios de 
elementos y de cantidades asociadas. 

5.3 Gráficas: Este corto programa es un trazador de gráficas de 
propósito general que le permite definir las unidades de ambos ejes, 
tanto respecto al nombre como a su longitud y entrar datos ordenados 
o desordenados para crear una gráfica lineal. 

5.4 Renumeración: Un sofisticado programa de renumeración 
que probablemente utilizará más que cualquier otro. Renumera tam- 
bién los GOTO y los GOSUB. 

5.5 Archivo 2: Es una modificación más avanzada del programa 
Archivo original, del capítulo 1. Puede utilizarse como programa de 
base de datos en el caso de que la estructura de los datos que haya 
que manejar sea predecible en cuanto a su estructura o longitud. 

5.6 Mecanografía: No todos los programas tienen que tener cien- 
tos de líneas. Este le ayudará a aprender y a practicar la mecano- 
grafía. 


6. Y finalmente un poco de diversión. Juegos para el Spectrum 

6.1 Misil: Un juego que requiere cálculos reales. 

6.2 Cacería: Un emocionante juego en el que hay que cazar una 
presa invisible. 

6.3 Clasificación de palabras: Es una sencilla rutina de clasifi- 
cación de cadenas alfanuméricas que puede utilizarse en los juegos 
de palabras. Puede adaptarse fácilmente para que realice clasifica- 
ciones numéricas. 


Introducción 


Este libro fue realizado en un intento de llenar un gran hueco. El 
hueco era la ausencia de trabajos destinados a cumplir el sueño del 
nuevo propietario de un microordenador que consiste en que su má- 
quina no sea únicamente un juguete, ni tampoco una introducción 
educacional a la «edad del silicio», sino una herramienta potente, ca- 
paz de realizar todo tipo de tareas y que abra todo tipo de posibili- 
dades. La mayoría de los libros contienen programas demasiado tri- 
viales o presuponen un gran deseo —o quizás una gran capacidad— 
para experimentar. 

Yo he querido escribir un libro basado en una sólida colección de 
programas en áreas tales como el almacenaje de datos, las finanzas, 
gráficos, cálculos y aplicaciones domésticas y educativas. Las dis- 
cusiones sobre las técnicas de programación irán apareciendo a partir 
de los propios programas de forma parecida, quizás, a un artículo de 
revista asociado al programa. Espero que encuentre que el libro que 
ha salido de este deseo sea de utilidad, no sólo como una forma de 
aprender nuevas técnicas de programación, sino también como una 
colección de programas, que ofrecen un amplio rango de aplicaciones 
que de otra forma estarían abiertas únicamente a aquéllos dispuestos 
a comprar programas comerciales muy caros o capaces de escribir 
programas sustanciales por sí mismos mediante su experiencia en 
programación. 

Este conjunto de programas pueden clasificarse, más o menos, 
en cinco grupos que se dan a continuación. He tenido en cuenta el 
peligro que podría representar el presentar simplemente una masa 
indigerible de programas. Por este motivo, además del hecho de ser 
muy adecuado para el Spectrum, todos los programas se han escrito 
en forma modular. En el texto se dan instrucciones completas para la 
comprobación de cada módulo antes de pasar al siguiente. 

Una sección típica del libro tiene la siguiente forma: 


Título del programa: por ejemplo, el Spectrum como archivador 
A continuación sigue una introducción general de la sección, es- 
tableciendo las ventajas y desventajas de utilizar el Spectrum para 
este tipo de aplicación. Esto va seguido por una o más secciones que 
se refieren a las técnicas de programación específicas utilizadas para 
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esta aplicación. En éstas se pueden incluir técnicas de búsqueda, ta- 
blas de punteros y el guardar datos en variables alfanuméricas con 
más de una dimensión. Después se examina con detalle cada uno de 
los módulos utilizados en el programa. 

El texto que figura a continuación de los módulos se divide en 
tres secciones: 


a) Un breve análisis del propósito del módulo y de cualquier 
punto de interés particular que se haya planteado. 

b) Un comentario sobre las propias líneas, identificando los ejem- 
plos de las distintas técnicas y señalando la unidad en la que 
el módulo puede incluirse de una forma natural. 

c) Se dan sugerencias para realizar algunas comprobaciones 
sencillas por si quiere comprobar por sí mismo que el módulo 
no es muy incorrecto antes de entrar el siguiente. 


Realice estas comprobaciones de una forma seria; pueden aho- 
rrarle muchos dolores de cabeza posteriormente. 

Una vez completa la lista de módulos hay un breve resumen de 
las principales lecciones que puedan haberse aprendido durante el 
proceso de entrada del programa. 

Una de las ventajas de este planteo es que los módulos podrán 
utilizarse en otros contextos una vez comprendida su función, una po- 
sibilidad que todavía es más atractiva por la capacidad que tiene el 
Spectrum de mezclar programas. 

La posibilidad que tiene el Spectrum para aceptar varias senten- 
cias en una única línea de BASIC puede ser una ventaja o todo lo 
contrario. Para que fuese más fácil su utilización y edición, he evita- 
do utilizar líneas multisentencia cuando se trataba de nuevas aplica- 
ciones. 

Por lo tanto existen tres formas de utilizar este libro: 


1) Como una forma nueva de aprender a programar. 

2) Como un paquete de útiles programas de aplicación. 

3) Como una gran colección de módulos, o subrutinas que pue- 
den utilizarse en un número ilimitado de otros programas. Al 
final del libro encontrará un índice extensivo que cubre las fun- 
ciones de cada uno de los módulos de programación. 


En otras palabras, puede considerar este libro como una intro- 
ducción a la programación más sofisticada, como una biblioteca de 
programas de utilidad o como un manual de referencia de progra- 
mación. Sin embargo, para obtener el máximo de este libro, le reco- 
miendo que empiece por el principio y vaya abriéndose el camino a 
través de él. 
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Como técnica de aprendizaje le será de utilidad el leer el resumen 
del libro un par de veces, para tener una idea del libro completo. 
Cuando empiece cada sección, lea la introducción, sáltese lo si- 
guiente y lea el resumen. Después lea la sección completa. De esta 
forma recordará mucho más el contenido. 
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1. Búsqueda de un archivo. 
El Spectrum como archivador 


1.1 Archivo 


Tarde o temprano, la mayoría de los poseedores de un micro se 
dan cuenta de que su nuevo amigo digital está realmente a sus an- 
chas cuando almacena información, la procesa y la presenta en for- 
mas que serían extremadamente laboriosas si fueran manuales. En- 
tonces empiezan a escribir sencillos programas que guarden los nom- 
bres y direcciones de sus amigos, o cataloguen su álbum de sellos. 
Terminan con media docena de programas, cada uno dedicado a una 
utilización, pero funcionando todos con el mismo método. 

En este capítulo inicial daremos un gran salto y examinaremos 
cómo puede escribirse un sencillo programa que satisfaga una gran 
variedad de tareas de archivo distintas, sin la necesidad de estar con- 
tinuamente reescribiendo un programa cada vez que aparece una 
nueva aplicación. 

Antes de escribir el programa tendremos que decidirnos por una 
forma económica de guardar los datos que queremos archivar. Los 
programas pequeños pueden saltarse este problema, ya que es muy 
poco probable que utilicen la totalidad de la memoria disponible. Estos 
programas pequeños, por ejemplo, pueden declarar una tabla cuyas 
dimensiones sean 5f, 4, 24. Esto nos permitirá guardar hasta 5f re- 
gistros, cada uno constituido por cuatro elementos, y cada elemento 
con un máximo de 2f caracteres de largo. La ventaja de esto es que 
cada registro del archivo sería claramente identificable, ya que el re- 
gistro X estaría constituido, en el caso de que la tabla se llamase A$, 
por A$(X,1), A$(X,2), A$(X,3) y A$(X,4). 

La desventaja de este método es que, para la mayoría de las 
aplicaciones de archivo, es muy probable que dé como resultado un 
gasto enorme de espacio de memoria de la cantidad limitada de me- 
moria disponible. La razón de esto es sencillamente que la longitud 
del espacio fijo que se asigna a cada elemento debe ser adecuado 
para el elemento más largo que pueda entrarse. Por ejemplo, si se 
quieren guardar los nombres de los amigos y uno de ellos tiene el 
apellido Fernández de Montoya, entonces tendrá que reservar al me- 
nos 21 caracteres para cada apellido, independientemente del hecho 
de que el resto de sus amigos no tengan ni mucho menos un apellido 
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tan impresionante. El espacio asignado a la mayoría de los nombres 
estaría por lo tanto medio vacío. 

Este es un problema que aparece en cualquier método de al- 
macenaje que asigne una cantidad fija de memoria a cada elemento, 
independientemente de su tamaño. Pero si no se asigna a cada re- 
gistro una cantidad de memoria fija, entonces el archivo en que están 
guardados los datos no quedará dividido de una forma regular. Esto 
hace más difícil para el programa el seguimiento de la posición de los 
registros individuales o incluso el identificar dónde termina un registro 
y dónde empieza otro. 

Tomemos el siguiente ejemplo de dos registros en un archivo, a 
los que se ha asignado exactamente la cantidad correcta de espacio: 


PEREZJUAN331255645677C.MAYORLOPEZLUIS45109567851AV.REAL 


Probablemente no tenga ninguna dificultad en identificar los nom- 
bres de las dos personas, pero su Spectrum no está tan familiarizado 
como usted con los apellidos comunes. Incluso probablemente no se 
haya dado cuenta de que los números a continuación de cada nombre 
corresponden a la edad, número de archivo, número de teléfono y 
número de la calle de la persona en cuestión. ¿Cómo podrá el pro- 
grama identificar cada uno de estos datos si cualquiera de ellos puede 
variar en el futuro? 

La respuesta a tales problemas generalmente está proporcionada 
por una combinación de indicadores y punteros. Los indicadores son 
señales que se colocan en el bloque principal de datos y que permite 
al programa identificar la longitud de los elementos que constituyen 
un registro. Por regla general, los punteros se colocan fuera del blo- 
que principal de datos. Consisten en una lista de las posiciones en la 
memoria de todos los registros, lo que permite al programa que pueda 
saltar al medio de un largo y complejo archivo y encontrar, sin cometer 
ningún error, el primer carácter del registro deseado. 

El programa que viene a continuación utiliza indicadores y pun- 
teros para manejar un archivo constituido por 2840W caracteres, que 
constituyen quizá centenares de registros separados, agrupados de 
una forma aparentemente aleatoria. El programa se llama Archivo. 
Espero que sea de gran utilidad en su biblioteca de programas. Lo 
que es muy importante es que las técnicas utilizadas son herramien- 
tas esenciales para aquellos que quieran colocar en sus Spectrums, 
16 K o 48 K, la máxima cantidad de información. El programa está 
dimensionado para utilizarlo con la versión de 48 K. 
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MODULO 1.1.1 


1000> PAPER ?: CLS : BORDER 7: I 
NR 6: PAPER 0: PRINT PAPER 2; 
ARCHIVO úl 


1010 PRINT *'"' FUNCIONES DISPONIBL 


EST. 


1020 PRINT 7" 1) CREAR '- NUEVO 
ARCHIVO" 
1030 PRINT “7” 2) ENTRAR INFOR 
MACION" 

1040 PRINT “" 3) BUSCAR -UISUA 
LIZAR-«CAMBIAR" 

1050 PRINT *”*” 4) FIMALIZAR" 


106560 PRINT *“ "ENTRE POR FAUOR LA 
QUE REQUIERA." 

1070 INPUT Z53% 

10509 CLS 


10390 IF Z%="1'" THEN GO SUB 1210 
1100 IF Z%="2" THEN GO SUB 1440 
1110 IF Z%4="3" THEN GO SUB 2150 
1120 IF Z%="4" THEN GO SUB 1150 


1130 CLS 
1140 GO TO 1000 
1150 PRINT AT 210,3; INE 7; PAPER 
2; "SISTEMA DE ARCHIVO CERRADO" 
1160 BEEP 2,2 
1150 INPUT "Ha entrado nueva ii 
ormacion que desee guardar”? (S 
)":;0%: IF 0O5$="N" THEN STOP 
11390 SAVE "ARCHIVO": PRINT “"R 
obine la cinta, luego pulse £ 
lquier tecla para UERIFICAR": 
USE 0: VERIFY "ARCHIVO": STOP 


Como regla básica, un programa de utilidad que no empiece con 
un menú bien claro de las funciones disponibles, es un mal programa. 
Si no está de acuerdo con esto ahora, ciertamente lo estará algún día, 
cuando tenga que utilizar de nuevo un programa complejo, pero útil, 
que no ha sido utilizado durante varias semanas y se encuentre con 
que tiene que pasar horas y horas buscando a través del listado para 
intentar recordar qué es lo que hace y cómo. 

En este módulo se le pide al usuario que elija entre cuatro fun- 
ciones numeradas. No se hace ningún intento para eliminar las en- 
tradas incorrectas. Los errores en este punto no son importantes. Si 
se entra un número fuera del rango del 1 al 4, el programa lo ignorará. 
El módulo también contiene, como una de las cuatro posibles elec- 
ciones del menú, la función de STOP. Esto sirve para marcar el final 
de la utilización del programa y para recordar al usuario que «re- 
grabe» cualquier nuevo dato que haya sido entrado. 


Comentario 
Línea 140: Cualquier programa en el Spectrum que no vaya a 
ser en blanco y negro necesita declarar en algún lugar, cerca del prin- 


cipio, los colores a utilizar para: 
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a) El borde alrededor de la pantalla. 

b) La pantalla. 

Cc) La tinta que se utilizará para los caracteres que aparecen en 
la pantalla. 


En esta línea hay tres instrucciones PAPER separadas. La pri- 
mera instrucción va sola y, junto con la orden CLS, deja la pantalla 
de color blanco. En la segunda instrucción, el color del papel se pone 
a negro para que el menú resalte claramente sobre el fondo blanco. 
La tercera instrucción PAPER está ligada a una instrucción PRINT. 
No deja ninguna diferencia permanente con respecto al color del pa- 
pel, pero nos asegura que la palabra Archivo se visualiza sobre un 
fondo rojo. 

Es importante que vea la diferencia entre las Órdenes de color 
que van solas y seleccionan un color; y aquellas órdenes de color que 
se refieren únicamente a la sentencia PRINT a la cual están ligadas. 
En una sentencia PRINT puede seleccionarse cada una de las ca- 
racterísticas mediante estas órdenes asociadas. Por ejemplo: 


PRINT FLASH 1; OVER 1; INVERSE 1; PAPER 7; INK Q; “HOLA” 


Ninguna de estas órdenes de color producirán efecto sobre las 
sentencias PRINT situadas en otras partes del programa. 

Línea 147: Cuando tenga una entrada (INPUT) para el menú de 
un programa, acuérdese de comprobar que las variables utilizadas no 
estén duplicadas en otras partes del programa. 

Línea 1/8: El menú se visualiza sobre papel blanco mediante 
tiras negras gruesas. Pero la última orden PAPER selecciona el negro 
como color de fondo, por lo que esta orden CLS deja la pantalla to- 
talmente en negro. Seguirá en negro hasta que el programa vuelva al 
menú. 

Línea 11904: Para cualquier programa de almacenaje de datos es 
mucho más conveniente tener una instrucción SAVE dentro del pro- 
grama que tener que entrarla en modo directo cada vez que se añade 
un nuevo dato. 


Comprobación del módulo 1.1.1 


Para comprobar este módulo tan sólo hay que ejecutarlo (RUN) 
y entrar números dentro del rango del 1 al 3. Entonces el programa 
deberá detenerse con el mensaje Y OK, seguido por el correspon- 
diente número de línea, comprendido entre 149/)/-111(. Si se entra un 
4 dará como resultado un mensaje para guardar (SAVE) y después 
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verificar (VERIFY) el programa. Cualquier otra entrada deberá ser ig- 
norada. 


MODULO 1.1.2 


2 SOD>RENMN REFIERE 

2750 REM SUBRUTIMAS FUNCIONALES 

2770 REM XIII 

2730 INPUT 05 

2790 LET OD%$=CHRS (LEN 0%$+1) +05 

2500 RETURN 

có PRINT AS$t1,2 TO CODE A$(1,1 
H , , 

2520 RETURN 

25:30 PRINT FN A$71)3) (2 TO ) 

2240 RETURN 

25509 FOR I=1 TO X 

2550 60 SUB 25109 

252570 GO SUB 23530 

25580 LET C=C+CODE B%4(C) 

2590 MEXT I 

22300 RETURN 


Este sencillo módulo contiene varias rutinas muy breves que es 
más económico colocarlas en una subrutina que escribirlas por com- 
pleto cada vez que se necesiten. Obsérvese la similitud, en este caso, 
con la utilización de una función definida por el usuario que sirve tam- 
bién para ahorrar espacio de una forma similar. Si una función tiene 
que trabajar siempre con las mismas variables, entonces una subru- 
tina de una línea puede ser igualmente efectiva. Las funciones defi- 
nidas por el usuario deben utilizarse cuando la misma función debe 
trabajar con variables distintas en lugares distintos. 

Por ejemplo, la línea 2794 podría sustituirse por una función de- 
finida tal como DEF FN Q$ ()=CHR$ (LEN Q$+1)+0Q$. Sin embargo, 
para llamar a esta función se necesitarían siempre dos líneas, INPUT 
Q$ y LET Q$=FN Q$ () por lo que no se produciría un ahorro real 
comparado con la única línea necesaria para llamar a la breve subru- 
tina de la línea 2786. Si tuviésemos tres o cuatro textos distintos sobre 
los que quisiéramos aplicar esta función, la podríamos definir como 
DEF FN Q$ (Q$)=CHR$ (LEN Q$+1)+0$. 

Ahora, la función podría aplicarse a otras variables alfanuméricas, 
colocando simplemente entre paréntesis la variable requerida cuando 
se llamase a la función. Por ejemplo LET C$=FN Q$(C$). 

Si quisiéramos trabajar con C$ con una subrutina de una línea, 
entonces necesitaríamos otra subrutina para tratar con C$. 

La moraleja de esto es sencillamente que el definir funciones sólo 
por el placer de hacerlo puede ser un gasto de tiempo innecesario. 
Guarde las funciones definidas para aquellas operaciones que pue- 
dan aplicarse a variables distintas en lugares distintos. 
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El módulo está constituido por cuatro subrutinas, de la siguiente 
forma: 


1) Líneas 2780-280M. Esta sección añade a la entrada Q$ el in- 


2 


3 


4 


) 


) 


a 


dicador que se mencionó en la introducción. El indicador 
consta de un único carácter. Recuerde que, en el Spectrum, 
cada carácter tiene un único código numérico; la lista de estos 
valores puede encontrarse en el apéndice A del manual del 
Spectrum. La función CHR$ puede utilizarse para seleccionar 
el carácter correcto que se corresponde con cualquier valor 
comprendido entre Y y 255, mientras que la función CODE 
convierte cualquier carácter en su valor correspondiente entre 
Y y 255. 

Utilizando estas dos funciones pueden guardarse valores 

comprendidos entre / y 255 en un único carácter. En el caso 
de nuestros indicadores, el único carácter añadido guarda la 
longitud del texto más uno, que corresponde al propio indi- 
cador, de forma que cuando el texto se coloque en el archivo 
principal de datos, puede utilizarse el indicador para identificar 
qué trozo de lo que viene después del indicador forma parte 
del mismo elemento. Si el indicador tiene el valor 11, entonces 
el elemento consistirá en el indicador y los 14 caracteres si- 
guientes. 
Líneas 281-282. Estas líneas visualizan nombres de ele- 
mentos tales como nombres y dirección. Obsérvese que el va- 
lor del indicador se utiliza aquí para extraer la parte útil de una 
línea de una tabla. 

Los nombres de elemento están guardados en A$, cuyas 
líneas tienen 2f caracteres de largo. La diferencia entre la lon- 
gitud del nombre del elemento y la longitud de la línea de la 
tabla está constituida por espacios que no queremos visuali- 
zar. 

La línea 281/ visualiza únicamente esta parte de la línea 
que nos interesa de A$ y que contiene los caracteres del nom- 
bre del elemento. Ni el indicador ni los espacios se visualizan. 
Esto puede sernos siempre de ayuda para formatear, cuando 
un texto se guarda en tablas que son más largas que el propio 
texto. 

Líneas 2834-2846. FN AS$ extrae un elemento del archivo prin- 
cipal de datos y se explicará posteriormente en el próximo mó- 
dulo. 

Líneas 2850-29. Esta subrutina se utiliza para visualizar re- 
gistros del archivo. Las variables utilizadas se explicarán en 
el análisis de los otros módulos. 


Comprobación del módulo 1.1.2 


El correcto funcionamiento de estas subrutinas tan sólo puede 
comprobarse de una forma efectiva cuando se hayan entrado los otros 
módulos. 


MODULO 1.1.3 


1200 >REM XXXIX 

1210 REM ESTRUCTURA 

1220 REM XXX XX%X%X%% XXXII 
1230 PRINT PAFER 2;" ESTRUCT 
URA CEL ARCHIVO 7 

1240 PRINT * "CUANTOS ELEMENTOS P 
OR REGISTRO?" 

12530 INPUT X 

1260 CLS 

1270 DIM As$1(xX,20) 

1250 PRINT PAPER 2;" NOMBRES D 
E- LOS ELEMENTOS ds 

1290 FOR I=1 TO Xx 

1300 PRINT "ELEMENTO “¿T:"3%7 
1510 GO SUB 2750 

1320 PRINT 0O$1(2 TO ) 

1330 LET ASI) =0%$ 

1340 NEXT I 


1350 DIM 65125090) 

1560 LET 65$(1 TO 4)=CHRS% 24+CHRS 
O+2HAS 24+CHRS 255 

13570 DEF FN Al) =256%CODE YH(2x5- 
1) + CODE VYS51(2%35) : 
1350 DEF FN A%s1()=B%1[/C TO C+CODE 
B$ (CC) -1) 


1390 LET P=S5S 

1400 LET YG%5=CHRA% B+CHR% 1+CHR5% 0 
+CHRA 3 

1410 LET N=2 

1420 RETURN 


Este es el módulo que permite al ARCHIVO asumir formas dis- 
tintas de acuerdo con los deseos del usuario. A lo largo de este mó- 
dulo, las tablas y variables principales se preparan para los datos que 
deben entrarse. Obsérvese que como resultado de esto se perderá 
cualquier dato que estuviese guardado con anterioridad. No analiza- 
remos con detalle la utilización de las distintas tablas, ya que prefe- 
rimos dejarlo para cuando empecemos a utilizarlas. 


Comentario 


Líneas 1234-1344. Un registro típico para el archivo podría con- 
sistir en nombre, dirección, edad y número de teléfono. A través de 
estas líneas el programa guardará en la variable X cuantos de tales 
elementos haya en cada registro. Se piden los nombres de los ele- 
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mentos y se guardan en la tabla A$, después de haber colocado un 
indicador mediante la subrutina de la línea 2784. Obsérvese que vi- 
sualizamos Q$ tras eliminar su primer carácter, ya que el indicador es 
un carácter sin significado. 

En la línea 1354 se define la tabla principal en la que se guar- 
darán los registros. 

En la línea 1364 se definen dos registros ficticios que marcarán 
el principio y el final del archivo. 

Líneas 1370-1380. Son dos ejemplos de funciones definidas por 
el usuario que podrían perfectamente sustituirse por subrutinas de una 
línea. La primera función extrae el valor de un puntero y se explicará 
en el módulo 5. La segunda función extrae un elemento del archivo 
principal, basándose en el valor del indicador que se encuentra en la 
posición C del archivo. 

Línea 1394. P es la variable que se utiliza para guardar la posición 
del primer espacio vacío de B$. B$ tendrá siempre 2840 caracteres 
de largo, pero tan sólo utilizaremos una parte del mismo. Evidente- 
mente, necesitamos saber cuánto se ha utilizado ya. 

Línea 1440. Y$ guarda los punteros en la forma de códigos de 
carácter, un método que se analiza en relación con el módulo 5. 

Línea 1416. N es la variable que guarda el número de registros 
del archivo. 


Comprobación del módulo 1.1.3 


Ahora ya podemos comprobar los módulos 2 y 3. Ejecute el pro- 
grama y seleccione la función 1 del menú. Debe especificar un nú- 
mero de elementos y después darles nombres. Una vez hecho esto, 
detenga el programa y, en modo directo, visualice las distintas tablas 
y variables así: 


B$:??? COPY 

Y$:2277 

N:2 

Pu5 

X debe ser igual al número de elementos que haya especificado 


y la tabla A$ debe tener X líneas, cada una con un nombre de ele- 
mento con un indicador colocado delante del mismo. 


MODULO 1.1.4 

1430>REM EXE AEREA 
1440 REM ENTRADA NORMAL 

1450 REM XXXL 
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14609 LET R5s= 

1470 PRINT PAPER 2,” R 
EGISTROS 57 

1430 PRINT 7 "COMANDOS DISPONIBLE 
1439 PRINT “*">ENTRAR ELEMENTO ES 
PECIFICADO""“*">""ZZZ"" PARA SALI 
k" 


1500 PRINT. "Ri 

EXA 

1510 PRINT "LONGITUC ARCHIUD:";P 

-=1;”"s";¡;LEN B% 

1520 FOR I=1 TO Xx 

1530 GO SUB 28510 

1540 60 SUB 2750 

15509 PRINT 0O$(2 TO ) 

Ro IF 04$1(2 TO )="ZZ2Z" THEN RET 
P 

1699 LET e d3 RHE+D0S 

1610 NEXT 

1620 CLS 

1630 GO SUB 1660 

1640 GO TO 1440 


El propósito de este módulo es aceptar la entrada de un regis- 
tro, compuesto del número correcto de elemento y presentar este 
registro a la sección del programa que lo insertará en su lugar co- 
rrecto del archivo. 


Comentario 


Línea 1604. R$ es el registro y está compuesto por cierto número 
de Q$ sucesivos que se han juntado. 


Comprobación del módulo 1.1.4 


Si ya ha entrado algunos nombres de elemento correctos, enton- 
ces empiece el programa con GOTO 1 y llame a la función 2 del menú. 
Se le pedirá una entrada para cada nombre de elemento. Tras la apa- 
rición del número correcto de nombres de elemento el programa se 
detendrá con el mensaje Y OK, 1630:1. El tamaño del archivo deberá 
ser 4/28006 y, si visualiza R$ éste deberá consistir en los elementos 
entrados, cada uno de ellos precedido por un carácter indicador. 


MODULO 1.1.5 

16S0>REM REXIAEXAEAIAA AAA AAA AAA 
1669 REM PONER DATOS EN ARCHIVO 
1670 REM _ XxX EIA 
1650 IF P+LEN R%$-1<LEN 6% THEN 6 


O TO 1730 
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16390 PRINT AT 14,10; "ARCHIUO LLE 


1700 PRINT “*“'"Pulsar cualquier 1 
ecla para” “ "continuar" 

1710 PAUSE 0 

1720 RETURN 

1730 LET POTEN=INT (LN  (N-1)3 /LN 


1740 LET S3=25—7TPOTEN 

1750 LET TS%=R5(2 TO CODE R5$(1)75 
1760 FOR K=POTEN-1 TO O STEP -1 
1770. LEFT era AC) 


$=FN AS() (2 TO ) 
1730 LET 3234 1(217+F.) 2 (TH>U%$) - (27K) 
EI TH<UGB) 


1810 IF S>3N-1 THEN LET S3=N-1 
13520 IF S<2 THEN LET S=2 
1530 NEXT KH 

1540 LET C=FN AC) 


1550 LET U%S$=FN AgSst3 (2 TO ) 

1350 IF T5<U5S5 THEN LET S=S3-1 
1570 LET ES$(P TO P+LEN R$-1)1=RS 
1830 LET N=N+1 

15390 LET YS%$=Y$(1 TO 2%5)+CHRS% IN 
T (P-256)+C0HRA% (P-256x%xINT (P-/256 
3)3)]+4H (2% (S+1)-1 TO ) 

1300 LET P=P+LEN R5$ 

1910 RETURN 


Este módulo es el más complejo del programa. Antes de pasar a 
un comentario detallado discutiremos dos puntos: 


1) La utilización de textos para guardar números. 
2) La técnica de la búsqueda binaria. 


Números en textos 


Ya hemos visto, en el módulo 3, que los punteros de nuestro pro- 
grama se guardan en una variable alfanumérica, Y$. Quizá se pre- 
gunte por qué los valores numéricos no se guardan directamente en 
una tabla numérica. La respuesta radica tanto en el ahorro de me- 
moria como en el ahorro de tiempo, aunque este último es el aspecto 
más significativo. Veamos primero el ahorro de memoria. 

Para poder tratar el número máximo de registros que puedan en- 
trarse, una tabla numérica para los punteros tendría que declararse 
con alrededor de 204/40 elementos. Es muy poco probable que tenga 
que tratar dos mil registros, pero es posible. Se encontraría con serios 
problemas si la tabla no tuviese suficientes espacios para el número 
de registros a los que debe apuntar. Una tabla no puede redimensio- 
narse sin perder todo lo que hay en ella. El verdadero problema es 
que una tabla numérica de dos mil elementos, debido a la forma en 
que el BASIC de Sinclair guarda los números, ocuparía unos 10440 
bytes de memoria. Esto es una gran proporción del total de la memoria 
disponible. 
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El Spectrum asigna cinco bytes de memoria a cada número guar- 
dado en una tabla, en un intento de cubrir el mayor rango posible de 
números; de hecho hasta 4.294.967.295. En nuestro caso no nece- 
sitamos un número tan grande: nuestro archivo tiene tan sólo 280444 
caracteres de largo, por lo que tan sólo necesitamos números enteros 
desde el 1 al 28400. Utilizando textos de dos caracteres se pueden 
representar estos números. 

Cada carácter tiene un código numérico asociado único, com- 
prendido entre Y y 255. Un único carácter puede utilizarse para guar- 
dar cualquier valor comprendido entre / y 255 utilizando simplemente 
el carácter que tiene este código. Así, el carácter A representa al nú- 
mero 65 y la palabra clave GOTO —que es tan sólo otro carácter en 
lo que se refiere al Spectrum— representa al número 236. Los nú- 
meros mayores que 255 se representan utilizando un segundo carác- 
ter para guardar el número de veces que contiene 255, de forma pa- 
recida en la que 3 en el número 36 representa 3 veces 1f/ en nuestro 
sistema decimal. Por lo tanto, dos caracteres nos dan la posibilidad 
de guardar cualquier número entero positivo hasta el 255*256+255. 
Esto es igual a 65535 y es más que suficiente para nuestro archivo 
de 280404 caracteres. 

Suponiendo que se desee utilizar tan sólo números enteros po- 
sitivos comprendidos entre / y 65535, pueden ahorrarse tres de los 
cinco bytes que el Spectrum utilizaría si se guardasen los mismos nú- 
meros en una tabla numérica. 

Lo malo es que dos de los tres bytes ahorrados se desperdician 
después para conseguir velocidad. 

Imagínese de nuevo nuestra tabla numérica de 2440 elementos 
e imagínese que quiere añadir o borrar un número que esté colocado 
en algún lugar cerca del principio del mismo. Si borra sencillamente 
un valor indeseado, quedará un agujero, o mejor dicho un cero, en el 
lugar donde estaba antes el número. Si inserta un número lo escribirá 
encima de lo que ya había allí. Para evitar cualquiera de estos resul- 
tados indeseados tendrá que asegurarse de que cada uno de los ele- 
mentos de la tabla puede desplazarse un lugar hacia arriba o hacia 
abajo. Si la posición en la que desea insertar un nuevo número es la 
posición 1, entonces tendrán que desplazarse 1999 números para de- 
jar espacio. Puede realizarse mediante 3 líneas de BASIC que formen 
un simple bucle, pero esto necesita tiempo, especialmente en un 
Spectrum. Ni sus mejores amigos describen al Spectrum como terri- 
blemente rápido. 

Ahora compare este bucle, que repite la operación 1999 veces, 
con esto: 


LET AS="XX"+A$ 
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Utilizando las grandes posibilidades del Spectrum para el manejo 
de textos podemos insertar dos bytes al principio, o al final, o en el 
medio, de un texto con una sola instrucción. Esto es muy rápido, pero 
tiene un inconveniente; dobla momentáneamente la cantidad de es- 
pacio utilizado por el texto. El Spectrum necesita guardar en su me- 
moria, incluso aunque sea sólo por un momento, en nuevo A$ que la 
línea está creando, junto con el antiguo A$ que se está utilizando para 
construirlo. Esta limitación es uno de los mayores inconvenientes para 
el manejo de textos del Spectrum y es difícil de evitar. Significa que 
Y$, que se utiliza para guardar los pares de caracteres que utilizamos 
como punteros para los registros del archivo principal, es efectiva- 
mente el doble de largo de lo que parece, ya que, en nuestro intento 
de aumentar la velocidad, se doblará momentáneamente cada vez 
que añadamos o borremos algo del mismo. Este doblaje quizá sea 
tan sólo momentáneo, pero no obstante tendremos que reservar es- 
pacio de memoria para el mismo. Es una pena, pero tendremos que 
aprender a vivir con esto. 

Este inconveniente es el motivo por el que no utilizamos el mismo 
método para insertar o borrar datos en nuestro archivo principal B$. 
El hacerlo representaría reducir a la mitad la cantidad de espacio que 
podría utilizarse para los registros. Hemos declarado B$ como una 
tabla de longitud fija y, cuando queramos borrar algo, moveremos el 
resto del archivo hacia abajo, registro a registro, para rellenar el hueco 
creado. 


Búsqueda binaria 


Utilizaremos la técnica de la búsqueda binaria para reducir el nú- 
mero de comparaciones posibles que hay que realizar para encontrar 
el lugar correcto donde hay que insertar un nuevo registro, des- 
de 12500 a 15 comparaciones posibles. Considérese el siguiente 
ejemplo: 

Hemos establecido un archivo que contiene 20440 elementos y 
hay un nuevo elemento que debe ser insertado en la posición 1731, 
aunque el programa no lo ha descubierto todavía. El programa em- 
pieza su búsqueda, buscando en el primer registro del archivo y com- 
parándolo con el nuevo registro que debe insertarse. Encuentra que 
el nuevo registro es mayor que éste por orden alfabético, por lo que 
el programa continúa examinando el siguiente registro del archivo. Al 
final, tras realizar 1731 comparaciones, el programa encuentra el pri- 
mer registro del archivo que es mayor que el nuevo registro. Ya habrá 
encontrado la posición correcta para el nuevo elemento. 

Compare este proceso directo con el siguiente, para un archivo 
del mismo tamaño y una inserción en la misma posición. 
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El programa empieza examinando el registro que ocupa la po- 
sición 1424, ya que 1424 es la mayor potencia de 2 que es menor o 
igual que el número de registros del archivo. El programa encuentra 
que el registro 1424 es menor por orden alfabético que el nuevo re- 
gistro, por lo que sumará 1M24/2 al 1424 original, que da como re- 
sultado 1536. El registro situado en la posición 1536 sigue siendo me- 
nor que el nuevo registro, por lo que suma 1/24/4 a 1526, que da 
1792. El registro situado en 1792 es mayor que el nuevo registro por 
lo que se restará 1024/8 de 1792 dando 1664. La búsqueda sigue en 
las siguientes posiciones del archivo, realizándose las siguientes su- 
mas o restas. 


1644 (después suma 64) 
1728 (después suma 32) 
1760 (después suma 16) 
1744 (después suma 8) 
1736 (después suma 4) 
1732 (después suma 2) 
1730 (después suma 1) 
Resultado final: 1731 


La potencia de la búsqueda binaria es pues evidente. 


Comentario 


Líneas 168/-172(. Estas líneas comprueban si queda espacio su- 
ficiente en el archivo para el nuevo registro. 

Líneas 1730-1830. Se aplica la búsqueda binaria a los registros 
de B$. La búsqueda se realiza con respecto al orden alfabético del 
primer elemento de cada registro. Para obtener una explicación de 
cómo entiende el Spectrum el orden alfabético, ver la página 95 del 
manual del Spectrum. 

Línea 1736. Encuentra la potencia más alta de 2 que es menor 
o igual que el número de registros del archivo. Utiliza la función lo- 
garitmo. La posición de búsqueda se pone igual a este valor. 

Línea 1756. En T$ se coloca el primer elemento del registro co- 
rrespondiente a la posición de búsqueda. 

Líneas 1760-183M. Este bucle suma o resta potencias de 2 de 
acuerdo con los principios establecidos en el análisis de la clasifica- 
ción binaria. 

Línea 1770. FN A fue definida en la línea 137. Extrae de dos 
caracteres contenidos en Y$ un valor numérico que corresponde al 
puntero del primer carácter de un registro del archivo principal. 

Línea 1784. FN AS fue definida en la línea 1380. Extrae del ar- 
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chivo principal el elemento cuyo indicador se encuentra en la posición 
C de B$. 

Línea 1796). Esta línea necesita más explicación. Una condición 
como T$>U$ o es verdadera o es falsa, pero en el uso habitual no 
puede decirse que tenga un valor de la misma forma que un número 
o una variable lo tiene. Sin embargo, para el Spectrum, T$>U$ tiene 
un valor real que es 1 si la condición es verdad, o (f si la condición 
es falsa. El valor de la condición puede utilizarse en un programa de 
la misma forma que se utilizaría un número o una variable. En esta 
línea en particular, si TS>U$, la condición tendrá el valor 1 y se su- 
mara (2"K)*1 al valor contenido en S. Por otra parte si T$<Uf$, la 
condición será Y y se restará (2”K)*H del valor contenido en S. Si T$ 
es menor que U$ entonces se invertirán los papeles, mientras que si 
T$ fuese igual a U$ entonces ambas condiciones serían falsas y S 
quedaría inalterado. 

Líneas 1810-1828. Si S, que es la posición de búsqueda, señala 
a uno de los registros ficticios, estas dos líneas vuelven de nuevo al 
bloque principal de datos. 

Líneas 1840-1854. Una vez completa la búsqueda binaria, el ele- 
mento que ocupa la posición seleccionada se extrae para su examen. 
Si el elemento en esta posición y el nuevo elemento son iguales, el 
nuevo elemento se coloca después del elemento existente. Si no son 
iguales, entonces el nuevo elemento se coloca antes del elemento 
existente. 

Línea 1874. El nuevo registro se añade al final del archivo. El 
orden correcto de los registros del archivo se mantiene únicamente 
en Y$. Con tal de que Y$ sepa donde está el registro número 378, 
por ejemplo, no tiene importancia si está realmente guardado en la 
posición 378. 


Comprobación del módulo 1.1.5 


Es difícil comprobar este módulo hasta que no se hayan añadido 
al programa las funciones de búsqueda y visualización, que permitan 
visualizar fácilmente los registros. Si quiere puede entrar algunos re- 
gistros y después detener el programa para comprobar si han sido 
insertados en B$. Recuerde que se habrán insertado en el orden en 
que hayan sido entrados. Si quiere, también puede examinar Y$ me- 
diante este bucle. 


9000 FOR S=1 TO LEN Y$ STEP 2:PRINT FN A ():NEXT S 


Con esto se visualizarán los valores de los punteros, que podrá 
asociar con los principios de los registros del archivo principal. 
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MODULO 1.1.6 


e 1 70>REMN REX 
2150 REM EUSGQUEDA 

2190 REM RH IAAIRIEAAAEAAAAAAAAZE 
2200 LET 3=2 

2210 PRINT PAPER 2;”" 

EUSSUEDA E 

22 PRINT  * "COMANDOS DISPONIBL 
2230 PRINT '">ENTRAR ELEMENTO PAR 
A LA""”" BUSQUEDA NORMAL” "">PRECE 
DER CON "533" PARA _ LA""" BUSQU 
EDR ESPECIAL” "“">PRECEDER CON *"T 
II" " PARA BUSCAR” " POR EL PRIME 
R CARACTER DEL”"“" REGISTRO" ">" 
ENTER"”"" PARA OBTENER EL PRIMER" * 
" ELEMENTO DEL. ARCEMHTUO"”" 

2240 PRINT "AFERRA 
FEAS 

2250 ro "“ "ENTRAR ELEMENTO A 

BUSCAR:” 


THEN GO TO 2510 


THEN GO TO 2430 
XAO MTLL" THEN 6 


0) 
p 
G 
H 
a] 
r 
m 
Fa 


4 


- 
30 FOR I=3 TO €N 
40 LET S3=I 

2350 LET C=FN AC) 

25560 IF B41(C+1) =S%(5S1 THEN 60 TO 


2570 NEXT I 

2350 RETURN 

25909 IF S4(1(2 TO 4) <>"S555" THEN G 
D TO 2430 

2400 GO SUB6G 29320 

2410 IF Ca4á=1 THEN GO TO 2510 
2420 RETURN 

24309 FOR I=1 TO 


O 


ao IF FN AS$1)=5% THEN GO TO 25 
1 
2450 IF FN AS1)=CHRAA 24+C0HR% 255 


THEN RETURN 

24560 LET C=C+CODE E%45(C) 
2470 NEXT I 

.2450 LET 3=3+1 

2430 LET C=FN AC) 

2500 60 TO 2430 

2510 LET C=FN A“) 

2520 LET Cd4=0 


2530 IF FN AsS$1)=CHRAS 24C0HRA% 255 
THEN RETURH 
2540 CL5S 

2550 PRINT "ENTRADA ";3-1;": -*” 


2560 60 SUE 2550 

2570 LET S=35+4+1 

2550 PRINT AT 14,0; PAPER 2;" 
BUSQUEDA Ml 

25390 PRINMNT "COMANDOS CISPONIBGLES 


2600 PRINT *">""ENTER"" PARA —UISU 
AL IZHR:. EL"*" SEGULIENTE ELEMENTO" 
CU >s "e zzzZz"" PARA ABGANDOMAR LA FUN 
CIÓN" "*">""ARA"”" PARA MODIFICAR" ” 
“$ ""*EC0CC”" PARA CONTINUAR LA"-"" E 
USQUEDA" 

2610 INPUT PS 


el 


$="CCC" THEN 60 TO 2300 
256840 IF P%4="" THEN GO TO 2510 
2650 IF PS%$<>"ARA" THEN GO TO 271 


2650 LET C=FN AC) 

2670 CLS 

2650 GO SUB 1930 

2710 IF PS$="Z222" THEN RETURN 
2720 IF P%="ARA" THEN RETURN 


cLSs 
GO TO 22€0 


El propósito-de este módulo es visualizar los registros del archivo, 
sea uno a uno desde el principio o empezando con el primer registro 
que satisfaga ciertas condiciones de búsqueda. Una vez visualizado 
un registro, el módulo da la posibilidad al usuario de elegir entre con- 
tinuar la búsqueda, examinar el siguiente registro, cambiar el registro 
o borrarlo del archivo. Obsérvese la continua utilización de FN A y de 
FN A$ para obtener la dirección de un registro y extraerlo del archivo. 


Comentario 


Línea 22M. S es el número del registro que se está examinando 
en la actualidad. Inicialmente se pone a 2 ya que el primer registro 
del archivo es en realidad un registro ficticio. 

Líneas 2294-2384. Si el usuario entra una instrucción de bús- 
queda que empiece con lll, el programa recorre el primer elemento 
de cada registro hasta que encuentre uno que empiece con el carácter 
entrado a continuación de !l!!. Si no se encuentra tal elemento, el pro- 
grama vuelve al menú principal. 

Líneas 2390-242f. La búsqueda especial, que busca cualquier 
combinación especificada de caracteres, independientemente de si es 
un elemento completo o no, es llevada a cabo por una subrutina se- 
parada que es llamada desde estas líneas, si la instrucción de bús- 
queda empieza con SSS. 

Líneas 2430-2560. Se examinan los elementos completos del ar- 
chivo para ver si coinciden con el elemento que se ha pedido que 
busque el programa. Esto es mucho más rápido que la búsqueda es- 
pecial, que recorre el archivo carácter a carácter. La rápida búsqueda 
binaria no puede utilizarse ya que tan sólo los primeros elementos de 
cada registro están por orden alfabético. Para que esta búsqueda con- 
sidere encontrado el elemento entrado, éste debe ser exactamente el 
mismo que el elemento de la memoria. Si buscamos Sánchez, J en 
el archivo, no encontrará Sánchez, Juan a menos que utilicemos la 
búsqueda especial, en cuyo caso SSSSánchez, J encontraría Sán- 
chez, J o Sánchez, Juan, pero sería mucho más lento. 
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Líneas 2514-257(. Esta sección visualiza un registro utilizando la 
subrutina de la línea 285% que ya hemos examinado. 

Líneas 258-2749. Una vez descubierto un registro que satisface 
los criterios de búsqueda, el módulo ofrece ahora al usuario la posi- 
bilidad de recorrer el archivo registro a registro, buscando el siguiente 
registro que satisfaga el criterio de búsqueda original o llamar a la 
rutina que permite modificar o borrar el registro. 


Comprobación del módulo 1.1.6 
Puede comprobar el funcionamiento correcto de todas las funcio- 


nes de búsqueda excepto la búsqueda especial. La función de mo- 
dificación de un registro todavía no ha sido entrada. 


MODULO 1.1.7 

2910>REM RX 
292 REM BUSQUEDA ESPECIAL 

2930 REM FREIRE AAA 
2940 LET C4=0 

29509 FOR H=S3 TO N-1 

2250 LET S=H 

2970 LET EC=FN A() 

2950 LET C1=C 

22320 FOR I=1 TO Xx 

30009 LET C1=C14+C0CDE E%+1C01) 

3010 NEXT 1 

3020 FOR J=C+1 TO C1-LEN 3%5+5 
3030 IF 6%$()] TO J+LEN S3S%-5) <>55( 
5 TO 3) THEN GO TO 3060 

35040 LET Cd4d=1 

35050 RETURN 


Este módulo contiene la rutina de búsqueda especial mencionada 
anteriormente. 


Comentario 


Línea 2944. C4 es el indicador utilizado para señalar, al volver 
del módulo 6, si la combinación de caracteres especificada se ha en- 
contrado. | 

Líneas 298/-341W. C1 se pone inicialmente igual a la dirección 
inicial del registro bajo examen. A C1 se le suman los indicadores 
asociados a los X elementos del registro, con lo que C1 será ahora 
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igual a la dirección inicial del siguiente registro. Obsérvese que ahora 
estamos hablando de la dirección inicial del siguiente registro en el 
archivo principal, y no del siguiente registro por orden alfabético. 

Líneas 3020-3064. El registro se examina carácter a carácter, 
buscando la coincidencia con la combinación de caracteres especifi- 
cada en la instrucción de búsqueda. 


Comprobación del módulo 1.1.7 


Entre una serie de combinaciones de caracteres, algunas de las 
cuales estén en el archivo y otras que no lo estén. No se olvide de 
poner delante SSS. 


MODULO 1.1.8 

19IZ0D>)REM REXAXIEAELEAEA AAA 
1930 REM CAMBIAR REGISTRO 

194090 REM REX EA AAA 
1950 LET S=5-1 

1960 LET C=FN AC) 

1970 LET Rgá="" 

1950 PRINT "REGISTRO ";¿S-1;":-" 


1930 FOR I=21 TO x 

2000 60 SUB 2510 

2010 GO SUB 2530 

2020 PRINT RT 17,0; PAPER 2;" 
MODIFICAR pe 

2030 PRINT "COMANDOS DISPONIBLES 


2040 PRINT “">""ENTER"" NO MODIFI 
GAR" “Ss oc zzz"" ELIMINA TODO EL. R 
EGISTRO""">ENTRAR NUEVO ELEMENTO 


2050 GO SUB 2750 

2060 IF LEN O$=1 THEN LET Rs5=R%+ 
B$(C€ TO C+CODE B5%1(C) -1) 

2070 LET C=C4CODE EH 1(C) 


2050 CLS3S 

2090 IF LEN o 1 THEN GO TO 2120 
2100 IF 0512 ]="ZZZ" THEN GO 
TO 2130 

2110 LET R%4=R$4+05% 

2120 NEXT LI 

2150 GO SUB 3130 

2140 IF 05$(2 TO 1="222" THEN RET 
DURA 

2150 60 SUB 1660 

2150 RETURN 


Este módulo da al usuario la opción de cambiar o borrar el re- 
gistro presentado al módulo por la función de búsqueda. 
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Comentario 


Líneas 205H-2134. Quizá recuerde que en el módulo 4 los nuevos 
registros se construían sobre R$. En estas líneas se crea un R$ mo- 
dificado, que está constituido o bien por elementos tomados directa- 
mente del registro del archivo, o por elementos entrados para sustituir 
a los originales. Después se borra el registro original del archivo, lla- 
mando a la subrutina de la línea 31364. 

Línea 2144. Si el usuario no ha especificado que el registro deba 
borrarse, el registro modificado, contenido en R$, es presentado al 
módulo 5 que lo insertará en el lugar correcto. 


Comprobación del módulo 1.1.8 


La comprobación total de este módulo debe esperar la entrada 
del siguiente, aunque puede comprobar que el módulo visualiza real- 
mente el registro seleccionado, elemento a elemento y que cualquier 
cambio entrado queda registrado en R$. Tras visualizar todos los ele- 
mentos del registro, el programa se detendrá con el mensaje / OK, 
2130:1. 


MODULO 1.1.9 

a E A RR 
3110 REM DESPLAZAR ARCHIUO 

3120 REM XXXIII 
35130 LET C=FN A() 

3140 LET CESPL=1000 

3150 LET C1=C 

3160 LET C3=C 

3170 FOR I=1 TO 

3150 LET C1=C21+c£0DEÉ 6B5+1(C1) 

3130 MEXT 1 

3200 LET C2=c21-£E 

3210 FOR 1=C1 TO LEN B%-1 STEP D 
ESPL 

3220 IF LEN B%5-I+1<DESPL THEN LE 
T DESPL=LEN B$-1I+1 

3230 LET S$=BS$(I TO TI+DESPL-1) 


3240 LET B%(C TO C+DESPL-1)=3S% 
32530 LET C=C+DESPL 


: he 
3270 LET YS%=Y$1(1 TO 2% (S-1))+VH41 
2% (S5S+1)-1 TO ) 

3250 FOR I=1 TO M-1 

3230 LET S=1I 

3300 LET C=FN A) 

3510 IF C<=CS THEN GO TO 3350 
33520 LET C=C-C2 

3330 LET Y%(2%I-1)=CHR%$ INT (Cr2 


3340 LET YS$(2%1)=CHRS (C-2556% INT 


(12-256) 
3550 NEXT I 
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3560 LET P=P-C2 
3570 LET N=N-1 
35550 RETURN 


Cuando se borre un registro del archivo, quedará un hueco que 
deberá rellenarse. La función de este módulo es borrar un registro 
especificado, desplazando el archivo, sucesivamente sobre sí mismo. 
El archivo no se mueve registro a registro, sino en bloques de mil 
caracteres. 


Comentario 


Línea 3176. Este bucle coloca C1 en la dirección inicial del si- 
guiente registro. 

Líneas 3210-3264. Este bucle desplaza un bloque de 1460 ca- 
racteres del archivo hacia abajo, la longitud correspondiente al regis- 
tro que hay que borrar, empezando el primer bloque en C1. 

Líneas 3230-3246. Si B$ ha sido mencionado a ambos lados de 
una ecuación —por ejemplo LET B$ (C TO C+SHIFT-1)=B$(1 TO 
I4+SHIFT—-1)— una copia de B$ se crearía momentáneamente y el 
programa se quedaría sin memoria. 

Línea 3276. Se elimina el puntero del registro borrado. 

Líneas 328/-3354. Ahora deberán corregirse todos los punteros 
correspondientes a los registros del archivo que han sido desplazados 
hacia abajo, ya que sus direcciones iniciales ahora serán distintas. 


Comprobación del módulo 1.1.9 


Utilice la función de MODIFICAR para borrar uno o dos elemen- 
tos, después cambie los primeros elementos de algunos registros de 
forma que tengan que cambiar de sitio dentro del archivo. Después 
de cada cambio o borrado, utilice la función de BUSQUEDA para com- 
probar que el archivo sigue todavía en el orden correcto. Si estas com- 
probaciones son satisfactorias, el programa ya estará completo. 


Resumen 


Ahora ya ha terminado con la entrada de un programa sustancial 
y complejo, que espero encuentre de utilidad para varias aplicaciones. 
Además de esto, en este proceso habrá aprendido varias técnicas que 
le dejarán en una buena posición, si se decide embarcar en la reali- 
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zación de programas más ambiciosos que traten sobre el almacenaje 
y proceso de datos no numéricos. 

Ha aprendido como estructurar bloques de datos mediante la uti- 
lización de punteros e indicadores. Ha visto como pueden utilizarse 
las variables alfanuméricas de una forma efectiva para guardar un 
cierto número de datos numéricos. Tiene un ejemplo funcionando de 
la potente técnica de búsqueda binaria. 

Sin embargo, lo que todavía es más importante, si se ha tomado 
la molestia de comprender lo que ha estado entrando, habrá ganado 
confianza sobre el hecho de que los grandes bloques complejos de 
datos pueden procesarse sin que todo degenere en un caos; después 
de todo, la mayor parte del arte de la programación es el meterse en 
aplicaciones que parecen terriblemente complicadas, junto con la per- 
severancia de seguir la tarea hasta el final. 


Posibles mejoras 


Si ha comprendido lo que ha entrado, quizá quiera emprender 
algunas de las siguientes tareas. 


1) El programa está deliberadamente escrito sin utilizar dema- 
siado las líneas multisentencia. Una vez que el programa fun- 
cione correctamente sería una buena idea intentar reducirlo 
combinando líneas —aprenderá mucho sobre las ventajas e 
inconvenientes de las líneas multisentencia. 

2) Ya he mencionado anteriormente que en el módulo de bús- 
queda no se utiliza la búsqueda binaria. ¿Por qué no añadir 
otra instrucción de búsqueda que se refiera únicamente al pri- 
mer elemento de cada registro y que utilice la rutina de bús- 
queda binaria para llevar a cabo la búsqueda? 

3) El programa tal como está estructurado no puede tratar ar- 
chivos o registros que tengan un número variable de elemen- 
tos. Este tipo de estructura es bastante frecuente, por ejemplo 
una receta con título, y un número variable de ingredientes e 
instrucciones. Es relativamente sencillo modificar el programa 
para que funcione con tres elementos por registro, pero con 
el segundo elemento subdividido en varios subelementos. La 
función de MODIFICAR deberá ser capaz de añadir o borrar 
subelementos. 

4) El programa no prevé una salida para la impresora del ZX; 
esto podría rectificarse fácilmente. 
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2 - LAWRENCE-Spectrum 


2. Realización del presupuesto. 
El Spectrum como banquero 


En el capítulo anterior hemos examinado las técnicas del manejo 
de datos no numéricos. En este capítulo trataremos con números y 
en particular con dinero. 

En el capítulo se presentan tres programas. El primero de ellos, 
Presupuesto, es una herramienta financiera potente y flexible que le 
permite examinar las consecuencias de decisiones financieras com- 
plejas y obtener una imagen del aspecto que tendrán sus finanzas 
durante los próximos doce meses. A continuación, Contabilidad es un 
sencillo programa que genera un conjunto de cuentas en un formato 
fácil de leer para usted. Finalmente, Cuentas Bancarias es un pro- 
grama que le permite seguir el desarrollo de su cuenta bancaria sin 
tener que esperar a que el banco le envíe el estado de cuentas. 


2.1 Presupuesto 


Este es un programa sustancial, considerablemente más largo 
que Archivo. Esto quizá le parezca sorprendente considerando que la 
cantidad de información que el programa maneja es considerable- 
mente menor que los 2840W caracteres de Archivo. Hay tres motivos 
principales para esto. Primeramente, Presupuesto es un programa 
más flexible en cuanto a lo que permite hacer al usuario. La lista de 
funciones del programa es mucho más extensa. En segundo lugar, 
hay una buena cantidad de cálculos repetitivos que hay que realizar 
y esto utiliza espacio. En tercer lugar está la cuestión del formateado. 
La información guardada por el programa sería indigerible si no fuera 
por el hecho de que una gran parte del programa se dedica a asegurar 
que los datos se presenten de una forma clara. 


MODULO 2.1.1 

SITO)REM FERRERA AAA AA AAA 
3340 REM PREGUNTAS 

3350 REM XXXL 
3360 PRINT AT P1,0;05 

5370 PRINT AT P1,P2;PS5S 
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> IF H=2 THEN PRINT AT 21,239, 
.. ( j .. 
3550 INPUT 05% 


3330 PRINT AT 20,0;0%;05% 

35400 PRINT AT 20,0;">>";0%4;" ” 
3410 PRINT AT 21,0,;"""ENTER"" pa 
ra confirmar" 

3420 INPUT R5 

35430 PRINT AT 20,0;05%;05% 

3440 IF R$s="" THEN GO TO 5460 
3450 60 TO 33€0 


3450 LET P2=0 

3470 DIM T%51(39) 
3450 LET T%-=0$ 
343230 RETURN 


Este parece un punto extraño para empezar, pero muy pocos de 
los otros módulos del programa funcionarán hasta que éste no haya 
sido insertado. El propósito de este módulo es manejar casi todos los 
mensajes que serán necesarios durante la ejecución del programa. 
Proporciona un método flexible para formatearlos y un sencillo pro- 
cedimiento para la comprobación de errores. 

Algunos programas llegan a tener una extraordinaria longitud 
para protegerse contra entradas sin sentido que harían perderse al 
programa o dar resultados sin significado. Estas técnicas pueden con- 
tribuir a la robustez de un programa, pero nunca pueden hacerlo com- 
pletamente seguro contra todas las contingencias. Tan sólo la expe- 
riencia de un programa al utilizarlo puede determinar si vale la pena 
el esfuerzo extra para incluir tales comprobaciones. En este módulo 
adoptamos la técnica de recordar sencillamente al usuario lo que se 
ha entrado y pedirle confirmación antes de que sea aceptado. El mo- 
tivo de que tengamos una comprobación de error en este programa 
mientras que no era así en Archivo es que es mucho más fácil el co- 
meter un error cuando se entra una serie de números y no darse 
cuenta de que se ha cometido este error. Esto es mucho más impor- 
tante que el escribir mal un nombre al entrarlo en un programa de 
archivo. 


Comentario 


Línea 3364. P1 es sencillamente un número de línea que se de- 
clara antes de llamar a esta rutina. O$ es una línea de 32 blancos y 
que asegura que la línea en la que va a visualizarse el mensaje está 
borrada. 

Línea 33704. P2 es la posición dentro de la línea. Al principio del 
programa se pone a cero —al principio de la línea— y permanece a 
cero a menos que se cambie antes de que esta rutina sea llamada. 
P$ es el texto del mensaje en cuestión. 
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Líneas 3394-3450. La entrada se vuelve a visualizar y se pide al 
usuario que confirme que la entrada es la que pretendía realizar. 

Línea 3464. En el caso de que P2 haya sido puesto a un valor 
distinto de cero, será reinicializado. 

Líneas 3470-3480. En algunos casos la entrada será comparada 
con un texto guardado en una tabla, como es el caso de los nombres 
de los meses. Estas líneas de la tabla tienen 9 caracteres de largo, 
independientemente del número de letras que tengan. La forma más 
fácil de realizar efectivamente esta comparación es convertir también 
el texto de entrada para que tenga 9 caracteres. 


Comprobación del módulo 2.1.1. 


Tendrá que entrar en modo directo los valores de O$, P1, P2, y 
P$. Después un GOTO al módulo, con lo que deberá visualizarse el 
mensaje P$ en la posición especificada e invitarle a confirmar la en- 
trada. 


MODULO 2.1.2 


SA E a 
LA PRIMERA VEZ QUE SE 
EJECUTE ESTE PROGRAMA 
ES MECESARIO ENTRAR EN 
MODO CIRECTO: 


DONDE XxX ES EL NUMERO DE 
MES EN CURSO 
1010 REM + FEXFAELIETAA AAA 
1020 LET H 
1030 DIH os 


1035 LET , - ANOS 


1040 LET LAG="*xx% FX % 
EXELARARARARES 
1050 DATA "ENERO", "FEBRERO", “MAR 


20", ABRIL" “MAYO”. " JUNIO”, “JUL T 
O", "AGOSTO", “SETIEMBRE”, "QÉÓTUBRE 
Ñ NOVIEMBRE" "DICIEMBRE" 


1069 DIM N$t12,9) 

1070 RESTORE 

1050 FOR I=1 o 12 
1 


Este módulo establece las variables necesarias. Obsérvese la uti- 
lización de la función DATA y de sus órdenes asociadas READ y RES- 
TORE. 


Comentario 


Líneas 1000-1041. Una vez haya entrado MO por vez primera, 
tal vez sea mejor dejar esta sentencia REM en su lugar para el caso 
de que inadvertidamente ejecute el programa otro día y borre MO. 

Línea 1020. Esta variable será explicada en el módulo 5. 

Líneas 1030-1044. Estos textos se utilizan para formatear la 
pantalla. 

Líneas 1450-1100. En la tabla N$ se colocan los nombres de los 
meses, utilizando READ, DATA y RESTORE. Obsérvese que el RES- 
TORE es necesario ya que este programa se empieza siempre con 
un GOTO 1, lo que no reinicializa los punteros de lectura al principio 
de los datos. Si el programa se ejecuta por segunda vez, el puntero 
ya habrá alcanzado el final de los datos, con lo que obtendrá un men- 
saje de error indicando que se ha quedado sin datos. 


Comprobación del módulo 2.1.2 


Esto se hará mejor cuando se hayan entrado los otros módulos 
que utilizan las variables. 


MODULO 2.1.3 
3ISID>REM RIEL AAA 
a REM REGISTRAR MES 

LIFE 

+11 

CE E RESUEDEST O 


3630 LET P$="A DUE MES ESTAMOS?" 

3650 LET P1=3 

535650 GO SUE 3360 

3670 IF T%=N$1(M0) THEN RETURN 

3650 FOR I=1 TO 12 

3690 IF T%$=N5(135 THEN 60 TO 3740 
3700 NEXT 1 

3v10 CLS 

3720 PRINT AT 39,0;"DEBE HABER UN 
ERROR EN EL MES ENTRACO. NO CON 
OZCO UN MES LLAMADO ";¿Q%,"!” 
3730 GO TO ¡3620 

3740 LET Mm2=I 

3750 FOR I=MO TO M2-1+12% (M2<MO) 
3755 LET Il1=I-12x(1>12) 

3760 CLS3S 


3770 PRINT AT 0,3; " DAA a ss e AA 
3730 PRINT ** "ENTRE POR FAUVOR LA 
3 CANTIDADES" “" "PARA EL PROXIMO " 
¿NHN$(IT) 

3730 FOR ¿1-1 TO NI 

3500 LET P1=5 


3530 LET P$=B%(1,J3)+": ("4+STRS% Bl 
A A O e A O 
3540 GO SUB 3350 
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3550 LET 6(1,J,1I13=UAL 0% 

358609 PRINT AT 5,0;,0% 

3570 NEXT J 

3900 LET PA5=" INGRESO PRINCIPAL: £ 
"ESTRES ECLi¿T1IT E CID 

3910 GO SUB 3360 

3920 LET E(1,11)=UAL 0% 

3950 LET P%=" INGRESO ADICIONAL: ( 
“"+5TRS E(3S,I1)4+")3:" 

39560 50 SUB 3350 

3970 LET E(3,1I1)=UVAL 0% 

3950 NEXT I 

3930 LET MO=M2 

4000 LET Y=MO+11 

4010 GO SUB 2600 

4015 GO SUB 293900 

4020 RETURN 


El propósito de este módulo es comprobar si el mes ha cambiado 
desde que se utilizó el programa por última vez. Si el mes ha cam- 
biado, los datos desactualizados se borran y se piden los nuevos da- 
tos. Si el cambio es por ejemplo de mayo a junio, los datos relativos 
a mayo se borran y se entran los nuevos datos para el próximo mayo. 
De esta forma el período manejado por el programa empieza siempre 
con el mes en curso y cubre un período de doce meses. 


Comentario 


Línea 3615. Y es el número del mes que termina el período de 
doce meses. 

Líneas 3634-3666. Esto es un ejemplo de cómo se llama al mó- 
dulo 1. 

Líneas 3670-3730. El nombre del mes se compara con el mes en 
curso del programa. Si no son iguales, el módulo comprueba el nú- 
mero del mes y si no, da un mensaje de error. 

Líneas 3740-4920. Esta sección del programa no puede compro- 
barse hasta que no se hayan entrado algunos datos, pero su propósito 
general es aceptar datos para actualizar la información si el mes ha 
cambiado desde su última utilización. 

Línea 3754. MO es el número del último mes en que fue utilizado 
el programa. M2 es el número del mes actual. 

Línea 3794). N1 es el número total de títulos de pagos que han 
sido entrados previamente. 

Líneas 380-3864. Sucesivamente se pide una nueva cifra para 
cada título de pago. Como guía, se muestra la cifra para el mes que 
debe ser borrado. 

Líneas 390/-397(/. El proceso se repite para los ingresos princi- 
pales y adicionales. 
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Línea 4410. La subrutina llamada por esta línea recalcula el aná- 
lisis presupuestario. 


Comprobación del módulo 2.1.3 


Tan sólo podemos comprobar si el módulo es capaz de tratar los 
cambios de mes y reconocer nombres inválidos de mes. Para hacerlo, 
una vez entrado MO en modo directo, empiece el programa con un 
GOTO 1 e intente entrar algunos nombres inválidos de mes. Deberán 
ser rechazados. Si se entra el mes correcto, se producirá el retorno 
desde el módulo; tendrá que insertar temporalmente una orden STOP 
en la línea 3589 para evitar que se vuelva a reejecutar el módulo. 
Intente también entrar el mes que va después del mes actual; el pro- 
grama deberá detenerse con un mensaje de error 2, en la línea 3796. 


MODULO 2.1.4 


>REM 
REM 


REM 
DIM 


ue 


beep py 
A E A 
Sd MU Pd) 
60666 8 

E E 


RREI=> +00 


1550 DIM 


=Ur==-- fe Di 


DINAR 0] 
TOO + + > ORO De 


O 

H 

í 
AZZ1M000004 DM+ 


16353 DIM 
1640 60 sUE 4030 
1650 GO SUE 3050 
1660 GO SUE 293900 
1670 RETURN 


Este módulo declara las distintas tablas utilizadas para guardar 
los datos y pide las entradas iniciales para las mismas. Obsérvese 
que la llamada de este módulo da como resultado la pérdida de cual- 
quiera de los datos allí guardados. 


Comentario 


Línea 1546. B$ es la tabla donde guardaremos los nombres de 
los títulos de los pagos: está prevista para 26 títulos. La primera di- 
mensión de la tabla es 2, ya que el programa permite dos conjuntos 
paralelos de datos, uno de ellos son las cifras reales y el otro una 
copia en la que puede realizar cambios hipotéticos sin que afecten a 
los datos reales. 
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Línea 1554. C es la tabla que contendrá, para cada título de pago, 
el pago mensual promedio necesario para cubrir el gasto anual. 

Línea 1566. La tabla B contendrá los pagos mensuales para los 
datos reales e hipotéticos. 

Línea 1576. La tabla D contendrá los pagos mensuales totales 
para cada mes. Contendrá también una comprobación que indique si 
el presupuesto mensual promedio ha cubierto realmente la cantidad 
que debía pagarse en este mes. 

Línea 1580. La tabla E contiene detalles mensuales de los ingre- 
sos reales e hipotéticos. 

Línea 159%. La tabla F contiene el balance entre ingresos y 
gastos. 

Líneas 1620-1630. N1 y N2 se refieren al número de títulos de 
pagos registrados en los lados real e hipotético de los datos. 

Líneas 1640-1660. Una vez inicializadas las tablas se pide al 
usuario que realice una entrada inicial de ingresos y pagos. Entonces 
estos datos serán copiados en el lado hipotético de la tabla por la 
subrutina de la línea 294/. 


Comprobación del módulo 2.1.4 


La comprobación de este módulo debe expresar hasta la utili- 
zación de las tablas por otros módulos. 


MODULO 2.1.5 

1130:60 SUE 359%0 

1210 PAFER_ Ed 05 + IA 7 id 
1220 PRÍINT "FUNCIONES ESPONIBL 
E 


1230 PRINT PAPER 5; 1) INICIALIZA 


1240 PRINT "2)BORRAR PRESUPUESTO 
HIPOTETICO” 

1250 PRINT PAPER 5; ""3SIMOSTRAR AN 

ALISIS MENSUAL” 

Ae PRINT 4) ANALISIS HIPOTETIC 


1270 PRINT PAPER 5; "S) CAMBIOS RE 
RALES” 

a PRINT 6) CAMBIOS HIPOTETICO 
1239 PRINT PAPER 5S;"”*)TITULOS NU 
UDS" 

rad PRINT *3)TITULOS HIPOTETICO 
13 02 PRINT PAPER S; "29JELIMINAR T 
ITULO REAL” 

1304 PRINT *"210) ELIMINAR TITULO H 
IPOTETICO" 

1310 PRINT PAPER 5," 11) FINALIZAR 
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1330 LET P21=15 

1340 LET PS$="CUAL PRECISA?" 

1350 O SUB 3360 

153560 CLS 

1370 LET Z%=0% 

1350 LET H=1+(Z2%="2")+1(Z%4="4") +1 
¿$="6%")4+(Z2%4="5")+(Z2%4="10") 

1330 IF Z%="1" THEN 60 SUE 1520 

1400 LET N=M1 

1410 1F H=2 THEN LET N=N2 

1420 IF Z%="2" THEN 60 SUBb6 293900 

1430 IF Z%="3" OR Z5="4" THEN GO 
SUB 16320 

1440 IF Z%="5" OR Z%="6" THEN GO 


14530 IF Z%="7" OR Z%="85" THEN 60 
1432 IF 2%="923" OR Z%4="10" THEN G 
1450 IF Z%="11" THEN GO TO 121490 


1450 GO TO 1200 
1430 PRINT FLASA 1;AT 10,0; '"DESE 


A REGRABAR?. (SN) ": INPUT 0%: CL 

5: IF 0s="S" THEN SAVE "PRESUP" 
: GEEP 1,2: PRINT ART 10,0," "REBOBG 
INAR Y LUEGO PULSAR UNA"" "TECLA 

PARA VERIFICAR": PAUSE 0: UERIFY 
"PRESUP": STOP 


1500 STOP 


Este es un módulo estándar de menú. 


Comentario 


Línea 1384. No hay secciones separadas del programa para tra- 
tar con la manipulación de los datos hipotéticos. Cada módulo del pro- 
grama trabaja con los datos reales si H=1 y con los datos hipotéticos 
si H=2. La línea utiliza condiciones lógicas como variables. 

Línea 139. Ya que no hay ningún motivo para que el número de 
títulos de pago sea el mismo en las secciones real e hipotética de los 
datos, la variable N se pone igual a N1 o N2 en función de si H es 
igual a 1 o es igual a 2. 


Comprobación del módulo 2.1.5 


Entre la línea 3324 y pulse RETURN. Ahora el programa deberá 
aceptar entradas para este módulo con excepción de la función 1. 
Naturalmente no sucederá nada, excepto que la función STOP debe 
funcionar. 
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MODULO 2.1.6 


IOADREM iAH 
3050 REM ENTRADA DE PAGOS 

JOSBO REN XXXIII AAA AAA 
3070 PRINT * ENTRADA DE _ FAC 
TUFRASE 
3050 PRINT *”*"PRECEDCER EL NOMBRE 
DEL ELEMENTO COM UN % SI NO SE 
CESEA INCLUIR EN EL PRESUPUESTO. 


3090 LET PS="TITULO (“""ZZZ"" ACA 


3100 LET P1=6 

3110 GO SUB 3560 

S IF GO%$="222" THEN GO SUB 2539 
RETURN 

YD PRINT AT 5,0;P%;05 

0 IF H=1 THEN LET N1= N1+1 

a IF H=2 THEN LET N2=N2+1 
[E] 


LET N=N1%(H=1) +N2x% (H=2) 

IF N<í=20 THEN GO TO 3210 
1530 PRINT AT 3,0; "ARCHIVO DE PA 
2. LLENO.*” 

30 PRINT ““ "Pulsar cualquier t 
cla para"“'"continuar." 


MUDLULULLSU 
PORRPRRRe>p 
OJD 


) 
PARA "+N5( 


= 

3270 LET B 
3250 PRINT 
32390 NEXT I 
3500 CLS3S 

3320 GO TO 3070 


El propósito de este módulo es aceptar nuevos títulos de pagos 
y pedir detalles de los pagos correspondientes a estos títulos para un 
período de doce meses. 


Comentario 


Línea 3084. Los elementos precedidos por un asterisco no se in- 
cluirán en el cálculo del presupuesto mensual promedio. 

Línea 3164. Obsérvese cómo se utilizan las condiciones lógicas 
para incrementar N1 o N2. 

Línea 321f. Obsérvese cómo se utiliza el valor de H para deter- 
minar en qué lado de la tabla deberán colocarse los datos. 

Línea 323. Si se ha pasado por el final del año, se restará doce 
de lí para que permanezca dentro del rango del 1 al 12. 

Línea 3256. El contador del bucle se utiliza para el formato de 
visualización de los sucesivos PS$. 
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Comprobación del módulo 2.1.6 


El programa, una vez inicializado, deberá aceptar títulos de pagos 
junto con los pagos asociados y guardarlos, ya sea en el lado real o 
en el hipotético de las tablas correspondientes. Esto tan sólo puede 
comprobarse visualizando elementos de las tablas B$ y B en modo 
directo. 


MODULO 2.1.7 


IÍOSO>REM RIERA 
4040 REM INGRESOS 

4059 REM 22%X%3XRXXXEFAAXALIL AE 
14050 PRINT ” INGRESOS 


14070 PRINT * "ENTRE POR FAVOR EL 
SALARIO DE 12 MESES: 

40530 FOR I=MO TO Y 

40390 LET Il=I-12%*+1(1 


212) 
3100 LET PS$=N%(TI1)+%:" 
4110 LET Pl=I+S-MO 
4120 GO SUB 3340 
4130 LET E(H,I1l)=UAL 0% 

34140 PRINT AT I+45-M0,10;E(H,I1) 
4150 NEXT I 

41580 CLS 

4170 PRINT "ENTRE A” CONT IMUAC ION 
CUALQUIER OTRO INGRESO PREVISTO 


4130 FOR I=MO TO Y 
4190 LET I1l=lI-12:(1>12) 


4200 LET Pl=I+5-MO 

4210 LET PS$=N$(TI1)4+":" 

4220 60 SUB 3360 

4230 LET E(H+2,1I1)=UAL 05 

4240 PRINT AT I+S-MO,10;E(H+2,I1 


Este módulo acepta los datos de los ingresos para los doce me- 
ses, bajo los títulos de salario y otros ingresos anticipados. 


Comentario 
Líneas 4480-415/. Este bucle acepta las cifras del salario que 
deben colocarse en la tabla E. 


Líneas 4170-4250. Lo mismo, pero para los ingresos suplemen- 
tarios. 
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Comprobación del módulo 2.1.7 


A este módulo se accede a través del módulo de inicialización, 
que deberá ser llamado desde el menú. Se le pedirá que entre títulos 
de pagos y después, cuando salga con un ZZZ, que entre los ingresos 
correspondientes a los dos títulos. El programa deberá volver al menú 
una vez hayan sido entradas las cifras de los ingresos. 


MODULO 2.1.8 


3SSO00>)REM 2%%% 
3510 REM DIME 


3520 REM voi 
Ss 
> 


LEX 
- 00012 1(M>=0) -10 


RBS MI) (2 TO 4) 
90090 THEN LET M5= 


HEN LET MG="BEIEEN 


3530 LET M=M+ 
00.0001%; (M<0) 
3540 LET MKt= 


FIX 
Os 
EX% 
200 
(STRSK 
3550 IF ABS M>=20 

e 


.. Lx" 
3560 IF M<U 
3570 RETURN 


Este módulo construye textos partiendo de los datos guardados 
que representan sumas de dinero. Esto se hace para que las cifras 
sean más fáciles de formatear. 


Comentario 


Línea 3530. Se suma 10040.0061 para asegurar que habrán tres 
cifras antes del punto decimal y dos después del mismo, sin alterar 
el valor de cualquier cifra que pudiera estar ya en estas posiciones. 
M es una variable temporal y el proceso no afecta al valor del número 
original. 

Línea 3554. Al presentar los datos, el programa tan sólo puede 
visualizar los tres dígitos que van delante del punto decimal. Si esto 
es un inconveniente serio para usted, es muy fácil modificarlo para 
que pueda visualizar valores hasta 9999. Esta limitación no afecta a 
lo que está guardado, sólo a lo que se visualiza. 

Línea 356/. El programa necesita poder visualizar números ne- 
gativos y dejar bien claro que son negativos. Esto se hace visuali- 
zándolos con inversión de video. Esto no es aparente en el listado, 
pero el texto creado al final de la línea consiste en: 


“[4 con CAPS SHIFT] +M$+*“[3 con CAPS SHIFT]” 


Los dos textos aparentemente vacios que se colocan a ambos 
lados de M$ añaden dos caracteres de control. El primero coloca todo 
lo que le sigue con inversión de video. El otro vuelve al video normal. 
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Comprobación del módulo 2.1.8 


En modo directo, entrar LET M=1 y después GOSUB 3564. Des- 
pués visualice el M$ que ha sido creado. Pruebe esto con otros va- 
lores, incluyendo algunos números negativos. 


MODULO 2.1.9 

25390 :REM FERIAS 

2600 REM ACTUALIZAR PRESUPUESTO 

2610 REM 23% AAA 

2620 LET T (H) =09 

2630 FOR I=1 TO N 

2640 LET PRESUP=0 

2650 IF 6$(1(H,I,1)=">x" THEN GO TO 
2710 

265609 FOR .¿1=1 TO 12 

2670 LET PRESUP=PFRESUP+B(H,1,4.)) 

2630 NEXT 

2690 LET C(T) =PRESUP.-12 

2700 LET T(H)=T (H) +0 (1) 

2r10 NEXT I 

2720 LET TTOTAL=0 

2730 LET CUM=0D 

2740 FOR I=MO TO vv 

2750 LET Il1=I-12%+(1>12) 

2760 LET DIH, TI1)=0 

2770 FOR J=1 TO N 

e LET D(H,TI1)=D(H,11)+6(H,.J),1I 
2730 NEXT y 

25800 LET TTOTAL=TTOTAL+D(H, 11) 

2510 FOR J=1 TO N 

2520 1F B$41(H,J3,1)=">x" THEN LET T 

TOTAL=TTOTAL-6(H,J,11) 


23309 NEXT 0) 
2540 LET D(H+2,11)=T (H) 2 (T-MO+1) 


2550 LET CUM=CUM+E (H, 11) +E (H+2,I 
1) -D(H, 11) 

25560 LET F(H,I1)=CUM 

2570 NEXT I 

28530 RETURN 


Este módulo realiza los cálculos que proporcionan los distintos 
análisis de ingresos y gastos. De hecho, es mucho menos complejo 
de lo que parece ya que todo lo que se hace son sencillas sumas, 
restas y divisiones por doce. 


Comentario 


Línea 2626. T es una tabla de dos elementos que se utiliza para 
guardar la suma de los pagos individuales mensuales presupuestados 
para obtener un presupuesto mensual total. 

Líneas 2634-2716. En este bucle se encuentran los pagos anua- 
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les totales para cada título de pagos y se dividen por doce para ob- 
tener un promedio mensual. La tabla C guarda el promedio mensual 
para cada título de pagos. Obsérvese que los nombres de pagos que 
empiezan con un asterisco están exentos de este proceso. 

Líneas 2749-2790). La tabla D se carga con los totales de los pa- 
gos para cada mes. 

Líneas 2804/-2846. El total de los pagos de cada mes se guarda 
en la tabla D. Estas sumas se acumulan en TTOTAL y de TTOTAL 
se resta cualquier pago que el usuario no quiera incluir en el presu- 
puesto promedio. A cada paso a través del bucle que empieza en 
2749, en TTOTAL se coloca el total de los pagos hasta el mes 11 
inclusive, que pertenecen a títulos de pagos incluidos en el presu- 
puesto mensual promedio. En la línea 2844 se resta TTOTAL de |1 
veces el presupuesto mensual promedio. La cifra resultante es el ba- 
lance del presupuesto mensual hasta este mes con respecto al total 
de los pagos de los elementos presupuestados. Esto se guarda en la 
segunda mitad de la tabla D. Y si todo esto le suena tan confuso como 
me suena a mí, tenga fe y espere hasta tener la oportunidad de vi- 
sualizar unas cuantas cifras sencillas y después léalo de nuevo. 

Línea 2850. El balance entre ingresos y gastos se guarda en 
CUM y estos valores se irán guardando como elementos sucesivos 
de la tabla F. 


Comprobación del módulo 2.1.9 


Este módulo será comprobado después de entrar el módulo si- 
guiente. 


MODULO 2.1.10 


1650:REM REI RAAAAAAAAAAAIAIA 

1630 REM UISUAL IZACIOÓN CE 
FACTURAS 

1700 REM AAA AAA 

17210 PRINT * 

1720 LET PS="MES DE INICIÓ" 

1730 LET Pl=:3 

GO SUE 3360 

FOR I=1 TO 12 

IF T%4=NS$(1T) THEN GO TO 21790 

NEXT. 1 


IF MO-M1+12%1( 
T M1=M0-4+123%w1 
cLs 
PRINT "MES 
Xx: 


A 
QUER 1: PRINT AT 
1 


21 


TO SI;TAB 14;N5$( 
3, TO 3);¡;TAB 15:N5 


=p pRZRRRERPRRe 


cl 
A SS ES 
v-G 606M60B60EOO 

E 

m 

- 

pra 

Pa 

| 

H 


[MM 
"8 


Eh 
[e] 


J¿TAB 22;N5(M1+3-1 
)"L%S: OUER 0 
O N 

IF I/2<>INT (1/2) 
PAPER 7 
1F T1<>11 THEN GO TO 21920 


PRINT AT 20,0; "PULSAR CUALO 
TECLA PARA BORRAR PANTA 


3056 


LLA Y CONTINUAR" 


30 


A a dl 
ma man rr 
(as 


Fo TO TO 


ura 


(5 


40 


IO 


LA es 
2400 
2440 


PRUSE 0 

FOR J=2 TO 21 

PRINT AT J3,0;0% 

NEXT y 

PRINT AT 2,0, 

PRINT B5(H,13; “E; 

FOR J=M1 TO M1+3 

>LET M=BI(H,I,J-12% (J)>12)) 
50 SUB 3500 

PRINT Ms; “NM: 

NEXT y 

LET M=CI(IT) 

GO SUB 5500 

PRINT mM%; EH" 

GO SUB 3500 

MET... E 

PRINT F5% 

PRINT  ** "PULSAR CUALQUIER T 
PARA ANALISIS" 

PRUSE Y 

FOR I=2 TO 21 

PRIMNT AT 1,0;05% 

NEXT  I 

PAPER S: PRINT_AT 2,0; "TOTA 
M *  BAL.PRES.ME "OTROS IN 
"BALL. EFE.M" 

PAPER 7: PRINT_AT 3,0; "PRES 
MX PAGA M' cc INGR. TO 
“"BAL. ACU.N" 

FOR TI=5M1 TO MmM14+3 


PAPER S: PRINT TAG 12; M5; “MN 


LET M=T (H) 
GO SUB 3500 
PAPER 7?: PRINT TAB 12;H5; “NM 


LET M=D (H+2,11) 
GO SUB 35300 
PAPER S: PRINT TAG 12;M5%; "MN 


LET ME tH,T11) 
GO SUB 3500 > 
PAPER 7: PRINT TAB 12;M5,;'N 


LET M=<E (H+2, 11) 
GO SUB 3300 
PAPER S: PRINT TAB 12;M5; “UM 


LET M=E (H, 1I1) +E (H+2, I1) 
GO SUB 3500 
PAPER ?: PRINT TAG 12;M5%; “MN 


LET M=(E (H,I1) +E (íH+2,X11)3 —-D € 
1-4 

GÓ SUB 3500 

PAPER S: PRIMNT TAB I2;M%; “NM 
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2450 LET M=F (H,TI1) 
2460 GO SUB 3500 
2500 PAPER ?: PRINT TAB 12;M5%; “EM 


2510 NEXT I 

5209 OVER 0: PRINT K$( TO 25 
2530 LET P="DESEA UER DE 
LAS CIFRAS (B/N] 3" 

2540 LET P1=20 

2550 GO SUB 3360 

2560 IF 0%<>"S3" THEN RETURN 


SGL 
2550 Go TO 1510 


El propósito de este módulo, más bien impresionante, es visua- 
lizar los distintos datos y resultados en forma tabular. De particular 
interés es la forma en que la tabla se formatea basándose principal- 
mente en variables que ya han aparecido en el programa; si los datos 
tienen una estructura regular pueden utilizarse para dictar el formato 
de su presentación sin demasiadas dificultades. 


Comentario 


Líneas 1704/6-181(f. Esta sección acepta la entrada de un mes ini- 
cial para la tabla y comprueba su validez. El mes inicial no puede ser 
posterior al mes número 9 del período de doce meses ya que se vi- 
sualizan cuatro meses. 

Líneas 1820-1836. Estas dos líneas visualizan el encabezamiento 
de la tabla, incluyendo las tres primeras letras del nombre de cada 
mes. 

Líneas 1840-2420. Este bucle visualiza los títulos de los pagos y 
los pagos mensuales asociados con ellos para el período de cuatro 
meses. Para hacer resaltar las líneas separadas de la tabla, se varía 
el color del «papel» en función de si la variable del bucle es par o 
impar. 

Líneas 2464-2094. Utilizar una línea de espacios vacíos y un bu- 
cle es una forma efectiva para borrar una parte de la pantalla. 

Líneas 211/-2516. Esta sección visualiza los distintos análisis de 
ingresos y gastos. Obsérvese cómo se utiliza el contador del bucle 
(2159, 216) para crear dos variables más en las que se basan el 
formateado de los datos. Tras la visualización de los títulos en las 
líneas 2114-2120, el examen de las líneas siguientes muestra que se 
componen de ocho secciones. Cada sección empieza con la forma- 
ción de la variable temporal M, y la llamada del módulo 8, y a conti- 
nuación la visualización de MS. 
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Comprobación del módulo 2.1.10 


Borre cualquier dato guardado previamente, entre de nuevo MO 
en modo directo y empiece el programa con GOTO 1. Entre los in- 
gresos y algunos pagos, pero que sean valores sencillos —decenas 
o centenas—. Llame al módulo 3 y examine el resultado. Si aparece 
algún problema con el formato es que probablemente habrá cometido 
algún error al entrar el módulo 10. Si las cifras no tienen sentido, el 
error está probablemente en el módulo 9. Si los pagos son incorrectos 
busque en la entrada de pagos en el módulo 6. Si los errores son en 
las cifras de ingresos, inspeccione el módulo 7. 


MODULO 2.1.11 


2053ID>RENM ARRE 


22900 REM PREPARAR TABLA 
HIPOTETICA 

2910 REM XXXIX 

2920 FOR I=1 TO M1 

2930 LET 6%(2,T1)=6%$(1,1) 

23940 FOR J=1 TO 12 

2250 LET B(2,I1,J)=B6(1,1l,.J) 

22960 LET D(2,J)=D(1,.)) 

2970 LET D(4,0)=D(3,.)) 

23930 LET E(2,J)=E(1,4.) 

29290 LET El(4,.)J)=E (3,.) 

2995 LET F(2,J)=F(1,.) 


3000 NEXT y) 
3010 NEXT I 
3020 LET N2=N1 
35030 RETURN 


Este módulo copia los datos situados en la mitad real de la tabla 
y los pasa a la mitad hipotética. Si existía alguna diferencia entre las 
mitades real e hipotética, entonces se perderá cuando se utilice esta 
función. 


Comprobación del módulo 2.1.11 


Ahora ya está en situación de comprobar la existencia de una 
separación adecuada entre las áreas de datos reales e hipotéticos. 
Entre algunos pagos hipotéticos nuevos, compruebe que han sido 
aceptados llamando a la función 4 del menú, y después vuelva al 
menú y llame a la función 3. La tabla visualizada no debe mostrar 
ninguna traza de los pagos hipotéticos que ha entrado. 
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MODULO 2.1.12 


4250>REM RRHH 
4290 REM CAMEITIOS 

4500 REM EFAEAAEAAAAEEAAAA AAA AAA AA 
1310 PRINT ” 16 1038 
4320 PRINT ““"1)1CAMBIAR TITULO E 
XISTENTE"""2) CAMBIAR INGRESO PRI 
ua A ORMERAAR INGRESO ADICI 
Ñ .. 

4540 LET Pg$="CuUAL DESEA?" 

4350 LET Pl1="7 


4410 IF H%$="1" THEN GO SUB 4460 

4420 IF H%="2" OR H$="3" THEN GO 
SUB 4569%0 

4440 GO SUB 265609 

4450 RETURN 

4450 LET PS%="NMOMBRE DEL TITULO A 
CAMBIAR?" 

4470 LET Pl=1 


¿1) THEN GO TO 45 


60 

4510 NEXT I 

4520 PRINT **”" NO HAY TITULO CON 
ESTE. NOMBRE," * ==" Pulsar cuaLqu 
ier tecla para continuare” 


45330 PRUSE UY 

14550 RETURN 

45560 LET B=1 

4570 LET PS%=" NUEVA CIFRA DO ""zZ"" 
PARA SALIR." 

4350 LET P1=17 

45390 FOR I=MO TO Y 

46009 LET Il1l=I-12+(1>12) 

4619 PRINT AT I-MO4+5,0;NS$(11)," 
DiH,B, LL 

60 SUB 3340 

4630 IF O%$="2Z" THEN 60 TO 4660 

4640 LET 6(H,6,I1)=UAL 0% 


po: 
mi. 
mÓ 
G 


46530 PRINT AT. I-M0+3,15;" (";¿B6(H, 
B,11),;")" 

4650 NEXT I 

4670 GO SUB 2590 

46509 RETURN 

4730 LET X=2%x([(H$="3") 

4759 PRINT "INGRESO PRINCIPAL:”" 

AND. (H%="2"3; " INGRESO SUPLEMENTA 
RIO: AND. (HA="3") 

47560 LET P="ENTRAR NUEVA CIFRA 

O "Zo PARA SALIR" 

4770 LET Pl=17 

47509 FOR I=HMO0 TO Y 

4730 LET TI1=I-12%+(1>12) 


4500 PRINT AT. I+S-MO,0;NS$(TI1),;" 
“¡¿E(H+x,11) 

4510 GO SUB 3340 

4520 IF Of4$="2" THEN GO TO 45350 
45309 LET E(H+X,11)=UAL 0% 

4540 PRINT AT I-MO4+43,15;"("¡ElH+ 
TT Ss Y E: 

4550 NEXT I 

4550 RETURN 


Este módulo permite realizar cambios sobre los datos ya exis- 
tentes. 
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Comentario 


Líneas 4460-4686. Se visualizan los pagos mensuales en curso, 
bajo los títulos de pagos especificados y estos pueden confirmarse o 
modificarse. A continuación se recalcula el análisis presupuestario. 

Líneas 4730-4860. La variable X se coloca en función de si se ha 
especificado un ingreso principal o adicional. Las cifras entradas se 
guardan en la sección correspondiente en la tabla E, en función del 
valor de X. 


Comprobación del módulo 2.1.12 


Llame a este módulo y cambie alguno de los datos ya existentes, 
tanto en el lado real como en el hipotético. 


MODULO 2.1.13 


45 70>REM RX RARA 
4350 REM ELIMINAR TITULO 

4390 REM XRXXXXXXXIRRXXXXAXIILIAEE 
42900 LET PS%$="NOMBRE DEL TITULO A 


ELIMINAR?" 

4310 LET P1=1 

43920 GO SUB 3340 

42930 FOR I=1 TO N 

4940 IF T5=6%(H,I3 THEN GO TO Su 


4250 NEXT I 

49609 PRINT AT 2,4; "TITULO NO ENC 
ONTRADO.”"**”" Pulsar cualquier te 
cla para continuar.” 


5000 IF H=1 THEN LET N1=N-1 
So1l0 IF H=2 THEN LET N2=N-1 

: N1%(H=1) +N2% (H=2) 
ITO MN 
H,JD)=B41(H,J+1) 
TO 12 


¿JJ ,K)=B(H,J+1,K) 


Tr- 


Este módulo borra un título de pago existente, tanto en el lado 
real como en el hipotético, junto con sus pagos asociados. 
Comentario 


Líneas 4930-4984. En nombre del elemento que hay que borrar 
se compara con los títulos de pagos existentes. 


51 


Líneas 5000-5120. Se decrementa N1 o N2 en función de si lo 
borrado corresponde a un dato real o hipotético. Después los ele- 
mentos de B$ y B se desplazan hacia abajo, uno a uno, para super- 
ponerse a la posición del dato que hay que borrar. Se vuelve a calcular 
el análisis presupuestario. 


Comprobación del módulo 2.1.13 


La comprobación se consigue borrando sencillamente algunos tí- 
tulos. Si el borrado funciona, el programa estará entrado correcta- 
mente y listo para su utilización. 


Resumen 


Este largo programa es una herramienta muy potente si se utiliza 
de forma adecuada, aunque se necesita cierta práctica para conseguir 
el máximo rendimiento. Si se toma seriamente puede conseguir al- 
guna información sorprendente sobre el estado de sus finanzas a lo 
largo del año — cuándo habrá que apretarse el cinturón o cuándo 
quedará algo para malgastar, cómo podrían reorganizarse los pagos 
para estar seguro de que queda un poco más para Navidad o para 
las vacaciones, cuál sería el efecto total de una nueva obligación o 
del aumento de los ingresos. 

Sin embargo, esto no es todo. Sin demasiadas modificaciones, 
la estructura del programa podría aplicarse a una gran variedad de 
aplicaciones donde los datos deban visualizarse y analizarse me- 
diante una serie de títulos, donde necesiten cambiarse a voluntad y 
donde puedan realizar entradas o cambios hipotéticos sin modificar 
los datos ya existentes. 

Con cambios en el módulo 9 puede conseguirse que el programa 
realice cálculos muy distintos de los que se han especificado aquí. 
Recuerde que lo más difícil no es conseguir que funcionen las líneas 
individuales de BASIC cuando se emprende una nueva aplicación; es 
el conseguir que funcionen todas juntas. Una vez que este programa 
funcione satisfactoriamente, con las mejoras que desee realizar, con- 
sidérelo como una estructura para sus propias ideas y tareas, en lugar 
de considerarlo como algo que tan sólo puede aplicarse a su presu- 
puesto familiar. 

Además, tiene que haber obtenido cierta confianza, al entrar este 
programa, en la técnica de manejar y subdividir grandes tablas me- 
diante la simple utilización de variables dentro del programa. Contiene 
ejemplos prácticos sobre la forma en que pueden utilizarse las varia- 
bles de los bucles y otras para ayudar al formateo de los datos. 
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Y finalmente, contiene un ejemplo de un sencillo módulo para for- 
matear y comprobar los mensajes del programa, algo muy interesante 
para los programas interactivos. 


Posibles mejoras 


1) 


2) 


Al igual que Archivo, este programa está escrito utilizando 
muy poco las líneas multisentencia. Acorte el programa tanto 
como pueda combinando líneas individuales. 

Excepto donde era absolutamente necesario para la claridad 
de la presentación, no se ha hecho ningún intento para con- 
seguir que la visualización de salida del programa fuese in- 
teractiva en cuanto a los colores. Recorra el programa e ilu- 
mínelo un poco con algunas órdenes de color colocadas en 
los lugares correctos. 

Eche un vistazo a las tablas definidas en el módulo 4. Varias 
de ellas podrían fácilmente combinarse entre sí. Esto podría 
dar como resultado un gran ahorro a la hora de visualizar la 
tabla de los análisis ya que el módulo podría trabajar metó- 
dicamente sobre una tabla en lugar que tener que referirse a 
4 0 5. Pruébelo y véalo. 


2.2 Contabilidad 


Este sencillo programa permite al usuario crear unas cuentas cla- 
ras y comprensibles. No se realiza ningún análisis excepto para ge- 
nerar totales y subtotales donde sea apropiado, por lo tanto si los li- 
bros no cuadran tendrá que descubrirlo usted mismo. Ya que el pro- 
grama es bastante sencillo, los comentarios en los módulos son mu- 
cho más cortos que antes. 


MODULO 2.2.1 

1O000:REM XXXIII 
1010 REM MENU 

1020 REM XXXIII 
10:30 PAPER 7: INK 90: CLS : PRINT 
Ea PRINT “"FUNCIONES CISPONIBL 
1059, PRINT “13 ENTRAR NUEVOS TIT 
1060 PRINT ¿"2 CAMBIAR IMPORTES - 


BORRAR ELEM. 


1070 


PRINT  *“*"3) PRESENTAR CUENTAS 
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1050 PRINT **"4) INICIALIZAR CUENT 


1090 PRINT “"S)FINALIZAR" 

1100 INPUT 25% 

LÍO ELS 

1120 IF 2%<>"4" AND Z%<>"5" THEN 
GO SUB 1320 


SUB 1390 


GO 

11509 IF Z%="2" THEN GO SUB 2120 
1160 IF Z%$="3" THEN GO SUB 2660 
1170 IF Z$="4" THEN GO SUB 1210 
1153809 IF Z%="S" THEN 60 TO 1202 
11230 CLS3 
1200 GO TO 1000 
1204 PRINT FLASH 1;AT 10,6; "MIES 
CEEI: INPUT "Desea regrabar 
7 (SN) ";0S$: IF O$="S"” THEN SAU 
E "CONTAB": BEEP 1,2: PRINT AT 1 
0,0; "REGOBINAR Y LUEGO PULSAR CU 
ALDQUIER TECLA PARA VERIFICAR": U 
ERIFY "CONTAB" 
1203 SsTOP 

Este es un programa estándar de menú. 
MODULO 2.2.2 
1210>REM XA AAAAIAAAA AAA 
1220 REM HABER+DEBE 
1230 REM 23% X2XIFXIEAIAAIEAAAAZE 
1240 DIM A+(2,100,15) 
1250 DIM A(2,100) 
1260 DIM C(2) 
1270 LET C(1)=1 
1250 LET C(2)=1 
1230 DIM 05132) 
1300 LET Lá="--=-=-=-==- dá 
1310 RETURN 


Este módulo inicializa las variables utilizadas y producirá la pér- 


dida de cualquier dato guardado previamente en ellas. 


Comentario 


Línea 124. A$ contendrá los nombres de los títulos en dos sec- 


ciones, una para el haber y la otra para el debe. 


Línea 1254. La tabla contendrá las cifras correspondientes a los 


títulos guardados en Af$. 


Líneas 126-128. C contendrá el número de elementos guar- 


dados en las áreas de debe y haber. 
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MODULO 2.2.3 


1320>REM REX 
1330 REM HABER O DEBE“ 

1540 REM RRA 
1330 _PRINT AT 10,3; "SELECCIONAR 
1: HABER 

1350 PRINT *” 

EM 


1370 INPUT CD 
1380 RETURN 


Este módulo coloca la variable CD en función de si el usuario 
desea tratar con el lado de los datos correspondientes al haber o al 
debe. 


Comprobación del módulo 2.2.3 


Cualquier función seleccionada desde el menú deberá dar como 
resultado la llamada de este módulo. 


MODULO 2.2.4 


13SIVOD>REM RXXxX%X% 
1400 REM ENTRAR 
1410 REM ixx3%%% 
1430 PRINT ” 


1440 PRINT "SELECCIONAR: 1)ELE 
NTO SIMPLE” 


1450 PRINT *" 2) TITULO 
PRINCIPAL" 

14509 PRINT ” 3) SUBT IT 

ULO” 

1470 PRINT “* a O e 

RA SALIR" 


1450 INPUT TIPO 
1430 IF TIPO=0 THEN RETURN 
1500 IF TIPO=S THEN GO TO 1750 


Este módulo se utiliza para especificar el tipo de título que va a 
ser guardado en las cuentas. Existen tres tipos: 


1) Elementos individuales que serán entrados directamente en 
la columna principal de las cuentas. 

2) Títulos principales, que no tienen cifras asociadas, pero que 
actúan como indicadores de grupos de: 

3) subtítulos, que quedarán más desplazados a la derecha y so- 
bre los que se realizará el subtotal separadamente de la co- 
lumna principal de cifras. 
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MODULO 2.2.5 


1510;REM EXA 

1520 REM ELEMENTO SIMPLE O 
ELEMENTO PRINCIPAL 

1530 REM XXXL AAA 

1540 LET 0=9 

1559 PRINT AT 35,0; "NOMBRE? *; 

1560 INPUT 05% 

1579 PRINT 0OS$ 

15530 IF TIPO=2 THEN GO TO 1620 

1590 PRINT * "IMPORTE? *”; 

1609 INPUT 9 

1610 PRINT 0 

20 INPUT “Es correcto? 13:N)"*"; 


40 IF Rs="S3" THEN GO TO 1690 
1650 FOR 1-3 TO ld 

1650 PRINT AT 1,0;0% 

1670 NEXT I 


1630 LET O%5=" "+05 

1700 IF TIPO=2 THEN LET 0Q41(1)="=x* 
1710 LET A$(CD,CI(CD))=05$ 

1720 LET A(CD,C(CD))=<=0 

¿30 LET C(CD)=C1(CD)+1 

LD LS 

1740 GO TO 1410 


Este módulo acepta la entrada de títulos principales o de ele- 
mentos individuales, según se definieron anteriormente. 


Comentario 


Líneas 154/-170M. Un nombre de elemento se acepta junto con 
una cantidad si la variable TIPO está a 1 —lo que indica un elemento 
individual—. Si TIPO está a 2, entonces se añade un asterisco delante 
del título, como indicador de que se trata de un título principal. 

Líneas 1714-1744. Si el elemento no es un título principal, enton- 
ces la variable Q contendrá la cantidad correspondiente al elemento. 
En esta sección el título está guardado en A$ y la cantidad en A. De- 
pendiendo de si el elemento corresponde al haber o al debe, se in- 
crementa uno de los valores de C. 


Comprobación del módulo 2.2.5 

Entre algunos títulos de ambos tipos y compruebe que se han 
guardado en Af$, junto con la cantidad asociada en A. Naturalmente 
las tablas deberán haber sido inicializadas por el módulo de iniciali- 


zación. 
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MODULO 2.2.6 


ELXELIEAAIAAIAAEIAA 
EXIELA AAA AAA 
E£- “DEL. “TITULO P 


(CO) 
T% THEN GO TO 1 


1540 NEXT I 

1550 PRINMNT *"PERCON, NO HAY Un T 
ITULO CON ESTE MOMBEBRE. 

1360 PRINT *“*'"Pulsar cua quie 
ecla rara seguir. PRISE 0 
1330 RETURN 

1530 LET LUGAR=I+1 

13004 PRINT "NOMBRE CEL SUBTITUL 


1910 INPUT 
1920 PRINT 
1930 PRINT 
12340 INPUT 
12350 PRINT 
1250 INPUT 


1953509 IF Rs="S" THEN GO TO 20530 
19909 FOR I1=3 TO 16 

2000 PRINT AT 1,0;0% 

2010 NEXT I 

2015 PRINT AT 3,0, 

2020 60 TO 13900 

2030 LET 0DO5="£'"+05% 

2040 FOR I=C (CD)+1 TO LUGAR+1 ST 


(CD, TI) =A%S (CD, I-1) 
2050 LET A(CD, TI) =A(CD, TI-1) 


2050 LET A%CC,LUGAR) =0% 
2090 LET ARAI(CD, LUGAR) =0 
2100 LET C (CD =C 10D) +1 
2105 CLS 

2110 60 TO 1410 


"IMPORTE? ”; 


e 
4 


Son correctos”? (S.-N) 


Sirve para aceptar subtítulos tal como ya se definió. 


Comentario 


Líneas 1754-1896. Se entra el nombre del título principal corres- 
pondiente, comparándolo con los títulos ya guardados y la posición 
de este título principal se guarda en la variable LUGAR. 

Líneas 190-2430. El nombre del nuevo subtítulo y la cantidad 
asociada son entrados y confirmados por el usuario. 

Líneas 2044-210/. Se crea un espacio moviendo todos los ele- 
mentos, desde la posición LUGAR en adelante, un espacio hacia 
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arriba en la tabla. El nuevo subtítulo es entonces colocado inmedia- 
tamente después del título principal correspondiente. 


Comprobación del módulo 2.2.6 


Entre un subtítulo que esté bajo uno de los títulos principales que 
entró al realizar la comprobación del último módulo. Compruebe que 
el título y la cantidad asociada han sido colocados en las tablas co- 
rrespondientes. 


MODULO 2.2.7 


2050>REM FERRERA 
29390 REM CREAR M%ñ 
3000 REM RX 
3005 LET M=M+.001 
35010 LET M%=1(STRS NI t-T0 EEN 37 


5050 RETURN 


Este módulo genera un texto estandarizado, con dos cifras de- 
cimales, a partir de las cifras asignadas a los distintos títulos. A di- 
ferencia del módulo similar del programa anterior, no se añaden ceros 
al principio del número. 


MODULO 2.2.8 


26060>RETH XERAL 
2670 REM PRESENTAR CUENTAS 
26580 REN XXXIX XX% 


=1;AT 1,12; "EE" AND CD=2 


2700 LET TTOTAL=0 


Om 
q 
'w 
a] 
DU 
pr 
H 
Z 
=i 
D 
=Í 
a 
PR 
mu 
1 
L 
om 
m 
D 
2 
O 
oO 


2710 LET STOTAL=0 

2?20 FOR I=1 TO C(CD)-1 

2730 IF TI>1 AND ASI1CD,I,1)<>"£" 
THEN PRINT 

2740 LET TTOTAL=TTOTAL+AICOD,I) 
2759 IF AS(CD,T,1)="£" THEN PRIN 
T TAB 2; 

2760 PRINT AS$(CD,I,2 TO ); 

27790 IF AS(CD,1,1)="x" THEN GO T 
o 2550 

Re IF A(CD,IJ=0 THEN GO TO 23858 


2730 LET M=A(CD,I) 

2500 60 SUB 29350 

2510 PRINT TAB 25-LEN M4; 

2520 IF AS5ICD,TI,1)<>"£" THEN PRI 
NT TAG 32-LEN MS; 

2830 IF AS$I1CD,I,1)="f£" THEN LET 
STOTAL=STOTAL+AI(CD,T) 

25409 PRINT Ms 
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2550 1F STOTAL=0 OR A%sI(CD, 141,1) 
="£" THEN GO TO 2310 

25609 PRINT TAB 15;L% 

2570 LET M=STOTAL 

2550 60 SUB 2950 

25%90 PRINT TAG 25-LEN M%;M5 
2900 LET STOTAL=0 

23910 MEXT I 

29209 LET M=TTOTAL 

2930 GO SUB5 229830 


ro PRINT *“TOTAL:";TAB 32-LEN 
$: Ms 

2950 PRINT “*"Pulsar cualquier te 
cla para seguir.” 


2955 PAUSE 0 
22970 RETURN 


El propósito de este módulo es visualizar o bien el lado del haber 
o el del debe, de las cuentas. 


Comentario 


Línea 2694. Obsérvese la utilización de AND para controlar lo que 
aquí se visualiza. Cuando dos elementos están conectados por AND, 
toman el valor del primer elemento del par si el segundo elemento 
tiene un valor positivo. Ya hemos visto que las condiciones como 
CD=2 tienen un valor de 1 o f en función de si la condición es ver- 
dadera o falsa. De acuerdo con ello, en esta línea, si CD=1, entonces 
la expresión «HABER» AND CD=1 toma el valor «HABER». Si CD 
no es 1, entonces la expresión no tiene ningún valor y no se visualiza 
nada. Esta es una forma muy económica de hacer elecciones entre 
elementos que deben visualizarse. (Para más información sobre el 
extraño comportamiento de las expresiones lógicas, ver el capítulo 13 
del manual de Sinclair.) 

Líneas 2704/-271-. Estas dos variables se utilizarán para registrar 
los totales de los distintos grupos de subtítulos y el total de los totales. 

Líneas 2729-2914. En este bucle se examina cada entrada de A$ 
para ver si se trata de un elemento individual, de un título principal o 
de un subtítulo. Si es un elemento individual, se visualiza el título y se 
entra la cantidad en la columna principal. Si se trata de un título prin- 
cipal entonces no se visualiza ninguna cantidad asociada. Si se trata 
de un subtítulo, entonces el título se desplaza dos espacios a la de- 
recha y su cantidad asociada se visualiza en una columna separada, 
antes de la columna principal. Al final de cada grupo de subtítulos se 
visualiza el total del grupo al pie del mismo. 
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Comprobación del módulo 2.2.8 


Entre algunos títulos y haga que se visualicen. Todos los puntos 
decimales de la columna principal deberán estar alineados. 


MODULO 2.2.9 

2120>REM. XXXIII 
2130 REM CAMBIOS “Y ELIMINACIONES 
214 RENO FERIA 
2150 FOR I=1 TO C(CD)-1 

160 PRINT AT 0,3; " BMald= 

RAE 

2170 IF ASICD,TI,1)<>"£"” THEN PRI 
NT AT 35,0;:05 

21509 PRINT AT 5,0;05% 

2190 IF ASICD,I,1)<>"£" THEN PRI 
NT AT 3,0;¿AK[(CD,I,2 TO ) 

2200 IF AS(CD,I,1)="£" THEN FRIN 
T AT 5,0;ASICCD,I.,2 TO J) 

2210 IF A(CCO,I3=0 THEN GO TO 225 


2220 LET M=A(CD,I) 

2230 60 SUB 2350 

2240 PRINT TAB —16;M5% 

2250 PRINT AT 15,0; ">ENTER, SIGU 


2260 PRINT ":""CcCcCc0""=CAMBIAR IMP 
ORTE" 

2270 PRINT ">" "222" "=SALIR" 
ENSO" zueyr “o o" "DDEC" "=BORRAR ELEM 


2390 INPUT 0Ss 
00 IF Uñj454=" 222" THEN RETURN 


Ca 60 mu 


10 IF G%5$="D0CC0" THEN GO SUB 246 
¿ RETURN 

3253 IF O%$="" THEN GO TO 2440 
330 PRINT AT 13,0;05;0%;05%;05% 
340 PRINT AT 13,0; "VARIACIÓN DE 
IMPORTE” "; 

59 INPUT 05 

50 PRINT 0% 

ZO INPUT "Es correcto? (3:N)"; 


w 
6 


PRINMNT RT 13,0;05%;0%;05%;0% 
IF R="N" THEN GO TO 2340 
10 LET ARA(CO, TI) =A[CD, TI) +UAL 0% 
20 PRINT AT 6,0;0% 

30 60 TO 2160 

40 NEXT I 

50 RETURN 


Ss 


e ir, 
u 


Este módulo permite al usuario cambiar las cantidades asociadas 
a elementos que ya se han entrado en las cuentas. No existe una 
función de búsqueda asociada a este módulo; el usuario simplemente 
recorrerá los elementos de las cuentas hasta que llegue al que está 
buscando. La cantidad asociada a un elemento se cambia entrando 
una cantidad que se sumará a la cantidad actualmente guardada. Esto 
suponiendo que las modificaciones generalmente serán para registrar 
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gastos o ingresos extras bajo los títulos ya existentes. Si desea restar, 
tan sólo hay que entrar un número negativo. 


Comprobación del módulo 2.2.9 


Intente cambiar varios elementos y después visualizar sus nue- 
vos valores. 


MODULO 2.2.10 


2460>REM REXELERAAEAA AEREA AAA 
2470 REM ELIMINAR ELEMENTO 
2430 REM XREXLEEXALAAEA AE LAELIAEAIE 


2490 LET LUGAR=I 

2500 LET BORRADO=1 

2510 IF A%$(CD, LUGAR, 1) <>" xx" THEN 
GO TO 2550 

2520 LET EBEORRADO=0 

2530 LET BORRADO=BOFRRADCO+1 

2540 IF A%5ICD. LUGAR+BORRADO, 1) = 
£”" THEN GO TO 2530 

2559 FOR K=LUGAR TO C(CD) -EORRAC 


o-1 

2560 LET A%I(CC,R)=A%S1[(CO0,EKE+4+BORRAD 
O) 

2555 LET A(CD,FR)=A(CD,E+BORRADO) 
2579 NEXT K 

2530 LET C(CD)=C (CD) -BORRADO 
2650 RETURN 


Este módulo borra elementos de las cuentas. Si el elemento que 
quiere borrarse es un título principal, también se borrarán todos los 
subtítulos asociados al mismo. 


Comentario 


Líneas 2490-254P4. Si el elemento que hay que borrar es un título 
principal, la variable BORRADO se incrementa hasta que sea igual al 
título principal más el número de sus subtítulos. 

Líneas 255-258. Los elementos que están por encima de la 
tabla se mueven hacia abajo para que cubran a los elementos que 
deben borrarse. La variable que registra el número de elementos será 
decrementada según el número de elementos borrados. 


Comprobación del módulo 2.2.10 


Borre algunos elementos y compruebe que han sido realmente 
borrados. El programa ya está ahora listo para su utilización. 
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Posibles mejoras 


1) ¿Por qué no intentar añadir algunos interesantes colores 
más? 

2) Intente añadir una función que realice un balance y lo incluya 
en uno u otro lado de las cuentas. 

3) Si hubiera 5M elementos o más a un lado de las cuentas, se 
necesitaría demasiado tiempo para pasar a través de ellos 
para hacer modificaciones. Intente añadir una función de bús- 
queda que permita al usuario entrar un número y que enton- 
ces salté hacia adelante o incluso hacia atrás el número en- 
trado de elementos. 


2.3 Cuentas bancarias 


En este programa empezaremos a hacer un uso extensivo de las 
líneas multisentencia. Este programa es una herramienta que permite 
mantener de una forma clara los registros financieros en forma pa- 
recida a una cuenta bancaria. Trata los pagos que deben ser reali- 
zados, tanto si son regulares o irregulares y los inserta en el registro 
mensual, en el día en que deben realizarse. 

El programa es relativamente sencillo comparado con los que he- 
mos hecho anteriormente, pero hay que señalar que no es tan sencillo 
como parece a primera vista, ya que en este programa, por vez pri- 
mera, utilizaremos una considerable proporción de líneas multisen- 
tencia. Sin ellas el programa aparecería considerablemente más 
largo. Un aspecto a tener en cuenta al entrar este programa, o cual- 
quier otro que utilice líneas multisentencia es el comportamiento de 
las sentencias IF. Estas sentencias son capaces de crear problemas 
si se utilizan inadecuadamente en las líneas multisentencia, creando 
errores en los programas que son extremadamente difíciles de detec- 
tar. De todas formas, las líneas multisentencia pueden utilizarse para 
aumentar la efectividad de las sentencias |F en virtud del hecho de 
que si la condición especificada por la sentencia IF no se cumple, el 
programa no sólo salta la parte de la línea directamente relacionada 
con la sentencia |F, sino que salta la totalidad del resto de la línea. 

En otras palabras, cualquier sentencia colocada después de una 
sentencia IF, será ejecutada únicamente si la sentencia IF es cierta. 
Esto es tan distinto del comportamiento de las líneas monosentencia 
que es muy fácil cometer un error. 

La ventaja de todo ello es que proporciona una forma de GOTO, 
automática y elegante, que ni tan sólo hay que especificar. Si se tiene 
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una serie de diez operaciones que deberán ser ejecutadas juntas 
siempre que, por ejemplo, C=1 en algún punto, entonces con una 
línea monosentencia se tendría que colocar una sentencia IF al prin- 
cipio de la sección que especificase un salto hasta después de las 1( 
Operaciones si C no fuese igual a 1. Funciona, pero por otra parte es 
un poco confuso y hace que sea difícil leer un programa en el que 
haya muchos saltos de este tipo. 

Sin embargo, con líneas multisentencia, podría empezarse una 
única línea con IF C=1 y a continuación las 1f) operaciones. No sólo 
haría esto que funcionase, si no que ahorraría memoria y haría que 
el programa fuese más legible, ya que quedaría muy claro que las 14 
Operaciones forman una unidad lógica. 


MODULO 2.3.1 


LODO>RENM ARALAR AAA 
1010 REM HENO 

1020 REM RX 
1030 CLS : INK 0: PAPER ?: PRINT 
AT O,JS; INR 2; FLASH 1; "CUENTAS 


BANCARIAS" 

1040 PRINT  **" 1) NUEVOS PAGOS" 
1050 PRINT **"2)EXAMINAR-BORRAR FP 
AGOS" 

10569 PRINT 3) IMPRIMIR INFORMES 


E 

4d) INICIALIZAR" 

, SI) FINALIZAR” 
10290 INPI ¿b: € 
+ 


$ Ls 

1100 IF Z%="1" HEN GO SUB 1250 
1110 IF Z2%4="2"” THEN GO SUB 1420 
1120 IF Z%="3" THEN GO SUB 1550 
1130 IF Z%="4" THEN GO SUB 1150 
1140 IF Z%$="5" THEN GO TO 1160 
1150 CLS : GO TO 1000 
1160 PRINT AT 10,8; FLASH 1; INR 
2; "CUENTAS BANCARIAS": INPUT "H 
A ENTRADO ALGUN MUEVO DATO QUE 
ESEE GUARDAR? (S-N)"¡OS: IF Qgf=" 
5" THEN SAVE "CUENTAS": BEEP 1,2 
: PRINT "REBOBINE Y A CONTIMUAC I 
ON PULSE ""ENTER"" PARA VERIFICA 
R": PAUSE 0: UERIFY "CUENTAS": P 
RINT " PROGRAMA VERIFICADO" 
1170 STOP 

Este es un módulo estándar de menú. 
MODULO 2.3.2 


11S50>REM RARA 
11390 REM UARIABLES 

1210 DIM A$(100,26): DIM A(100) 
1220 DEF FN AS5(X)3=(STRA (*X+10000 
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:-001)1 (2 TO $3) 
1230 LET PAGOS=0 
1240 RETURN 


Comentario 


Línea 121f. A$ se utilizará para guardar los nombres y otra in- 
formación referente a los pagos individuales. A contendrá las canti- 
dades en sí. 

Línea 1220: Si ha seguido los dos programas anteriores no de- 
berá tener ningún problema en identificar el propósito de esta función. 
En una única línea, esta función crea un formato estándar para cual- 
quier cifra que se le dé, con un valor máximo de 9999.99. Debe re- 
cordar que en el módulo 2 de Archivo discutimos en qué casos una 
función definida por el usuario representaba un ahorro significativo 
con respecto a una subrutina de una o dos líneas. Esta función, con 
su único argumento, X, se utilizará para formatear dos variables dis- 
tintas, ahorrándonos así la utilización de dos subrutinas cortas. Si 
quiere, cuando se haya familiarizado con su utilización en este pro- 
grama, puede volver atrás hasta los dos programas anteriores y sus- 
tituir allí las dos subrutinas cortas utilizadas para estandarizar el for- 
mato de las cifras. 

Línea 1230. PAGOS se utiliza para registrar el número total de 
elementos en el archivo. 


MODULO 2.3.3 


1250:REMÓ 25H IAIAEAELAAAAAAEAAE 
125604 REM NUELO FAGO REGULAR 

1LE7TO RENO RIFF IAREAAAAAAAAAAZ 
1230 PRINMNT AT 0,10; FLASH 1; TINE 
2; CPAGOS" 

12230 PRINMT "11 HABER y 2Ic6EBEE7 

“ici INFPOIT CD: PRIMNT CC 

1300 PRINT "NOMBRE CEL PAGOTF? ":; 
o THNHPIUIT 0%: PRINT 05% 


1310 PRINT 7 "IMPORTE? ";¿: INPUT 

G: PRINT Q 

15320 PRIMT 7" "HESES:P.e€. alo04or10 

“: INPUT R$: PRINT F$ 

1330 PRINT “"DIA DE PAGO? ";: IN 

PUT S: PRINTS 

1340 INPUT a CORRECTOS?  (3.N) 
¡TH IF Ta="” TAREMHN TL sy 0 TO 
12530 

1350_LET PAGOS=PAGOS+1: FOR JI=PA 

603 TO 2 STEP -1 

1360 IF 3S<CODE A$(J-1,1) THEN LE 

TF ABC) ARI 10: LET A(CJ)=ACJ-1) 
E MER T 

1370 LET AS(J)="": LET A$1.),26)= 
CHR% CD: LET A%(J0,14 TO 25) =0%: 

LET ACJ)=0 


[e] 
E 


1330 IF ECC=2 THEN LET AtCJI=ACJL 
=-1 

1390: FOR I=1 TO LEN RE STEP 2: 
LET ABLJ,1+UAL RsCI TO TI+11)="1" 
l: HMEXT  I: 

1400 LET As%(1,11 =CHEGA =S 

1414 RETURN 


Este módulo acepta la entrada de nuevos elementos, incluyendo 
detalles como el nombre, cantidad, los meses en que se hace el pago 
y el día de pago. El módulo también toma nota de si el elemento co- 
rresponde al haber o al debe. Si corresponde al debe, la cantidad se 
guarda en forma negativa. | 


Comentario 


Líneas 1350-136f. Empezando con el último elemento del ar- 
chivo, el módulo recorre todos los elementos para buscar el primero 
de ellos que sea menor por orden alfabético que el elemento entrado. 
Esto clasificará a los elementos por orden del día de pago, ya que el 
día de pago se guarda en forma del código del carácter del primer 
carácter de cada línea de A$. Obsérvese que para insertar elementos 
individuales en una tabla, siempre es más eficiente empezar por el 
final de la lista de elementos, ya que entonces puede examinarse 
cada elemento y, si es necesario, desplazarlo un lugar hasta que se 
encuentre en la posición correcta. Esto elimina la necesidad de dos 
bucles separados, uno para buscar la posición correcta a través del 
archivo y otro para desplazar los elementos para crear espacio para 
la nueva entrada. 

Líneas 1370-1406. La cantidad se guarda en A. El resto de la 
información se guarda toda en la misma línea de Af$. El primer ca- 
rácter se utiliza para guardar el día de pago: los doce siguientes se 
utilizan para guardar los meses en los que se realiza el pago. Las 
posiciones desde la 14 a la 25 se utilizan para el nombre del elemento. 
La posición 26 sirve para registrar que el elemento corresponde al 
haber o al debe. 


Comprobación del módulo 2.3.3 


Ejecute el programa y llame a la función de inicialización. Des- 
pués entre algunos elementos y detenga el programa. Visualice el 
contenido de A$ y de A e intente relacionarlos con la descripción dada 
en el comentario de este módulo. 


65 


3 - LAWRENCE-Spectrum 


MODULO 2.3.4 


IS5S5SO>REM FAX AAAAAAAAAAAAA 
15650 REM PREPARAR INFORME 

1570 REM FAA AAA 
15530 LET “TOTAL=9 

15390 PRINMT AT 0,10; INR 2; FLASH 
1; “INFORME” 

16009 PRINT 7 "NUMERO DE MES PARA 


EL INFORME: “: INPUT QQ; PRINT 0 
1610 CLS : PRINT AT 0,10; INK 1, 
“MES. “50 


1620 FOR 1=1 TO PAGOS 

1630 IF AS(TI.,1+0)<>"1" THEN GO T 

0 16390 

1640 IF A%s11,26)=CHRA5S 1 THEN PAP 

ER 5 

1650 PRINT “CODE AS(TI,1),;"=x" AND 
AS I,26) =CHRS 1;TAB 3; ":"¡As(lI, 
14 TO 25), 

15660 PRINT TRE 16;FM ASI AES ALI) 
¡UM LETS TOTAL=TOTAL+RIT1:' 1F 
TOTAL<0 THEN INUERSE 1 

1670 PRINMNT FN ASCIABS TOTAL):  IMU 

ERSE 0 

1650 PAPER “7 

16909 NEXT I: INPUT *"*""ENTER"”"" CO 

NTIMUAR";0s 

1700 RETURN 


Este módulo acepta una entrada que especifique un mes, y des- 
pués visualiza las cuentas correspondientes a todos los pagos y re- 
cibos de este mes. 


Comentario 


Línea 16304. Cualquier elemento que no tenga un 1 en la posición 
del carácter que corresponde al mes especificado es ignorado. 

Línea 1648. El color de PAPER se coloca a amarillo para los ele- 
mentos del haber. 

Línea 1650. Obsérvese la utilización de AND para visualizar un 
asterisco junto a la fecha de los elementos del haber. 

Líneas 1660-1670. FN AS se aplica a ABS A(I) y a ABS TOTAL. 
Obsérvese la utilización que se hace aquí de ABS); la función daría un 
resultado sin sentido si se aplicase a un número negativo debido a la 
presencia del signo menos. Naturalmente, el ABS podría haberse in- 
cluido en la función. 


Comprobación del módulo 2.3.4. 


Visualice las cuentas para varios meses. 
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MODULO 2.3.5 


1420>RENH AEREA 
14:30 REM BORRAR FPAGOS 
1440 REN 2% 
14530 FOR I=1 TO PAGOS 


1480 CELS : IF COCE A$1(1,26)=1 TH 
EN PRINT -* PAPER 6; "HABER" 

1470 IF CODE A$s1(1,26)]=2 THEN PRI 
HT 7? PAPER 5: "DEBÉ" 

1430 PRIMT “PAGO: '¡AA LT, 14 TO 25 
J ' IMPORTE: ";FN ASIABS ACTI) 
1490 PRINT “"MESES:“¡: FOR U=1 T 


0 12: PRINT STR J AND ASI, 1+.) 
E MT 


> 
1500 PRINT *“"DIA CE PAGO: *; COCE 
ARF/TI,1) 
1510 PRINMT PAFER Bi! a e 
1) ""DDD"”" BORRAR"""2 UA dr s 
ALTR" "ESE "ENTER" >" PARA EL 


SAGUIENTE. ELEMENTOS 
1520 INPUT 0%: 1F 0Q0%5$="DCDD" THEN 


FOR (lI=1 TO PAGOS: LET ASÍJI=AS(.) 
+13): LET RJ) =A(J+41): NEXT <J]: LE 
T PAGOS=FAGOS-1: RETURN 

1530 IF GO%4="" THEN NEXT Il: RETUR 


H 
1340 RETURH 


Este módulo visualiza elementos del archivo y da al usuario la 
opción de borrarlos. 


Comentario 

Línea 1520. Los elementos se desplazan hacia abajo en el ar- 
chivo para cubrir al que debe borrarse. Obsérvese que esto significa 
que el elemento final de la tabla ahora estará duplicado ya que no se 
ha colocado nada encima de él. Esto no tiene importancia ya que PA- 


GOS se ha decrementado en una unidad y lo que queda en la última 
posición del archivo queda invisible para el programa. 


Comprobación del módulo 2.3.5 


Si esta función funciona el programa ya está completo. 


Resumen 

Este es realmente un programa muy sencillo. Plantea la intere- 
sante cuestión de hasta dónde hay que llegar al aumentar la comple- 
jidad del programa para simplificar su utilización. Los programas so- 
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fisticados de cuentas bancarias suelen ofrecer la posibilidad de regis- 
trar cambios de año, frecuencias de pago, fechas límite, etc. En este 
programa hemos adoptado la sencilla solución de preguntar al usuario 
en qué mes debe realizarse el pago, eliminando así la necesidad de 
diferenciar entre los pagos que se hacen de una vez y la variedad de 
pagos a plazos distintos. Sospecho que a menos que sus transaccio- 
nes financieras sean extremadamente complejas, no querrá meterse 
en problemas para escribir nuevas funciones del programa que traten 
los pagos mensuales sin que el usuario especifique los meses. Tenga 
cuidado con la sobrecomplejidad en sus propios programas. Si se en- 
cuentra con que ha dedicado diez o veinte líneas extra a funciones 
que el cerebro humano puede realizar igualmente rápido antes de en- 
trar los datos, entonces está malgastando tiempo y esfuerzo. 


Posibles mejoras 


1) El programa no tiene la posibilidad de acumular un balance 
de un mes a otro. Intente añadirle uno. 

2) El asterisco situado junto a la fecha de los elementos del ha- 
ber en realidad está allí para hacer que estos elementos des- 
taquen cuando se envíen a la impresora, la cual no registrará 
las diferencias del color del papel. Duplique la sentencia de 
PRINT en el módulo 4 con LPRINTS. 

3) ¿Podría combinar la instrucción que sirve para invertir la vi- 
sualización de un número negativo y colocarla dentro de la 
función FN A$? 
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3. Dibujar. Gráficos del Spectrum 


En este capítulo examinaremos algunas de las posibilidades grá- 
ficas del Spectrum. Para agotar el tema de los gráficos del Spectrum 
sería necesario dedicarle un libro completo y aquí no es lo que inten- 
taremos hacer. Nos concentraremos en gráficos sencillos que puedan 
utilizarse para aumentar la efectividad de varios programas. Dejare- 
mos aparte áreas tan fascinantes como los gráficos tridimensionales, 
los gráficos con movimiento y las figuras creadas por funciones ma- 
temáticas. Esto no quiere decir que estas áreas no sean importantes, 
sino que sería imposible hacerles justicia. 

En los programas que vienen a continuación examinaremos las 
posibilidades abiertas por la capacidad de gráficos definidos por el 
usuario e intentaremos resolver algunos de los problemas que apa- 
recen en la creación y almacenaje de dibujos realizados sobre la to- 
talidad de la pantalla. 

Los programas presentados en este capítulo son: 


1) Caracteres. Un programa diseñado para permitirle crear ca- 
racteres, definibles por usted mismo, para utilizarlos con otros 
programas. 

2) Diccionario. Un método para guardar los distintos caracteres 
gráficos que haya definido y creado. 

3) Tangram. Un programa que trata del dibujo de figuras utili- 
zando la orden DRAW. 

4) Artista. Un programa que le permitirá realizar dibujos sobre la 
totalidad de la pantalla utilizando todos los caracteres gráficos 
del Spectrum, incluyendo los definidos por el usuario, y guar- 
dar los dibujos resultantes, junto con sus características de 
color. 

5) Diseño. Un programa que le permite definir un dibujo de hasta 
65536 x 65536 pixels de ancho, añadir y borrar, examinar el 
dibujo a distintas escalas y girarlo en su totalidad o parte del 
mismo sobre la pantalla. 
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3.1 Caracteres 


Algunos quizá ya hayan escrito un programa para definir carac- 
teres. Sin embargo, éste es un buen programa de utilidad para aque- 
llos que no lo hayan hecho y constituye una sencilla introducción a 
algunas de las técnicas que utilizaremos en programas posteriores. 

El programa le permite diseñar, a una escala mayor, grupos de 
hasta cuatro caracteres gráficos, borrar caracteres gráficos ya exis- 


tentes y guardar en cinta el carácter así creado. 


Si no está familiarizado con la idea de los gráficos definidos por 
el usuario, debería releer el capítulo 14 del manual del Spectrum antes 


de intentar entrar este programa. 


MODULO 3.1.1 

IODO>REM EXE 
1010 REM MENI 

1020 REM 22% 
1050 PAPER 7: INK 0: CLS 

1040 650 SUB 2400 

10509 PRINT ” 

E PRINT * "FUNCIONES DISPONIGL 
E ER 

100 PRINT *"1) INICIALIZAR” 

1050 PRINT “*"2)CREAR NUEUOS CARA 
CGCTERES” 

1030 PRINT 7" 5) GUARDAR CARACTERE 
1100 PRINT 7*'"4)60RRAR CARACTERES 
1110 PRINT “*"S)FINALIZAR" 

1120 PRINT *"CUAL REQUIERE?" 
11:30 INPUT 253 

1140 CLS 

1150 IF Z%="1" THEN GO SUB 1230 
11850 IF Z2%="2”" THEN 50 SUB 1290 
1170 IF ¿2%="3" THEN GO SUB 227€ 
1150 IF Z%="4" THEN 60 SUB 2040 
11390 IF Z%="5" THEN STOP 

1200 PAPER 2: CLS 

1210 560 TO 121600 

1220 STOP 


Este es un módulo estándar de menú. 


MODULO 3.1.2 


READ BYTE 
PORE USR CHR% 144+TI,E6YTE 


470 NEXT I 

430 RETURN 

4390 DATA 255,1239,123,129,1239,12 
¿129,255 


10 ON NO 


Este módulo carga el carácter “0” en la memoria, en la posición 
ocupada por “A” en el área de gráficos definidos por el usuario. El 
carácter será utilizado en el curso del programa. 


Comentario 


Líneas 244-2474. Si se ha releído el capítulo 14 del manual del 
Spectrum, no debería tener ningún problema para comprender lo que 
se está haciendo aquí. Los números de las sentencias de DATA re- 
presentan valores binarios, que, cuando estén guardados en el área 
de caracteres definidos por el usuario constituirán el carácter “17”. El 
número 255 se representa en binario como 11111111 y el 129 como 
10000001. Se leen uno a uno y se colocan en la memoria. El CHR$ 
144 es “A” en el área definida por el usuario. 


Comprobación del módulo 3.1.2 


Tras entrar y ejecutar este módulo, el código “*A” en modo gráfico 
deberá visualizar el carácter “DT”. 


MODULO 3.1.3 

A A 
1240 REM VARIABLES 

1250 REM XERAL 
1260 DIM 226,39) 

1270 LET CARACTERES=1 


1230 RETURN 


Estas son todas las variables. 


Comentario 


Línea 1264. Los números que se utilizarán para crear los carac- 
teres definibles por el usuario se guardan en esta tabla para facilitar 
su manipulación. Cualquier borrado se realiza primeramente en la ta- 
bla y después la tabla se carga en la memoria. 
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MODULO 3.1.4 


1290>REIN FEE AAA 
1300 REM DIBGUJAR TRAMA 

1310 REM XXXIII 
1330 FOR I=2 TO 17 

1340 FOR J=5 TO 21 

1350 PRINT AT 1,0; 0" 


1390 PRINT OUER 1; PAPER S;¡AT 2, 
I;" "¿AT 9,1l;”" "¿AT 10,1l;5” "¿AT 


1400 NEXT I 

1410 FOR I=2 TO 17 

1420 PRINT OUER 1; PAPER S5;¿AT Il, 

¡PL O: E A - E E A > 
o AO 

1430 NEXT I 

1440 PRINT AT 139,0;"5,6,7,SPARA 

MOVERO1 PARA MARCAROO PÁRA SORRA 

ROSPARA REGISTRAR C." 


Este módulo dibuja una retícula de 16x 16 sobre la cual se cons- 
truirán los caracteres definibles por el usuario. 


Comentario 

Líneas 1380-1430. Hay cuatro caracteres cuadrados separados. 
Para facilitar la distinción entre ellos, sus bordes están sombreados 
en azul, utilizando la función OVER para evitar borrar la retícula. 
Comprobación del módulo 3.1.4 

El módulo debe visualizar una retícula de 16x16 con los bordes 


de cuatro cuadrados de 8x8 sombreados. 


MODULO 3.1.5 


1450>REM 22xx%zw 
1460 REM RELLE 
% 
> 


A * 
1470 REM XXXIII LILIA 
1450 CIM Asl(4 . 5) 
14390 LET xXx=2: ET Y=8 
1500 PRINT AT X,WY;, PAPER 8; OUER 
1,;"%": PARUSE $5 
1510 PRINT AT xX,Y; PAPER 8; QUER 
E 
13 20 LET TH=INKEY $ 
1330 IF T%="" THEN GO TO 1500 
1540 BEEP .053,4 
1550 LET Xl=X-1-58% (X>9): LET Yl= 


Y-5-8% (Y>1:3) 
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1560 LET xY=1+(Y>13) +2% (X>9) 
1570 IF T%="0" THEN LET ABI, M1 


vil= 
15350 IF T%$="21" THEN LET AS (XY,xX1 
Pb ás E ='"E" 


1590 IF Tg%="3" THEN GO TO 1660 
1609 PRINT PAPER S;AT X,Y;" O"; 
Ñ Mm THEH PRINMT P 


E 


a PTA 


Tiifion : 


Este módulo es el núcleo del programa. Su propósito es permitir 
al usuario mover un cursor parpadeante sobre la retícula, coloreando 
cuadrados o borrando cuadrados que ya estaban coloreados. Cuando 
el carácter ya está definido a su entera satisfacción, puede salir del 
módulo y examinar el carácter en su tamaño correcto. 


Comentario 


Línea 148. Es mucho más fácil manipular el contenido de una 
tabla que lo que hay sobre la pantalla. Por lo tanto, cuando deba co- 
lorearse un cuadrado de la retícula se hará en primer lugar en la tabla 
A$ y después A$ se visualiza sobre la pantalla. Obsérvese que la tabla 
A$ tiene en cuenta en sus dimensiones el hecho de que hay cuatro 
caracteres cuadrados separados. 

Línea 1494. Estas son las coordenadas de la esquina superior 
izquierda de la retícula. 

Líneas 1540-1534. Esta rutina visualiza un cursor parpadeante en 
la posición X, Y hasta que se pulse una tecla. PAPER se coloca a 8 
para que el color del cuadrado quede inalterado. Ya que el asterisco 
se visualiza dos veces con OVER, no produce ningún efecto sobre el 
contenido del cuadrado de la retícula. 

Línea 1546). La función INKEY$ no activa el «bip» por lo que debe 
sustituirse para indicar que se ha registrado una tecla. 

Líneas 1550-1566. Las coordenadas X, Y se convierten en coor- 
denadas de Af$. 

Líneas 161(-164/H. Esta es una rutina muy útil a la hora de mover 
un cursor sobre la pantalla, bajo el control del usuario. La utilización 
de las condiciones lógicas entre paréntesis modifica el valor de la 
coordenada X o de la coordenada Y si se pulsa una de las teclas con 
flecha. Las líneas 1624 y 1644 comprueban que el cursor no haya 
salido fuera de los límites deseados —que en otras circunstancias po- 
drían ser los bordes de la pantalla—. Si los límites se han sobrepasado 
en algún sentido, el cursor se vuelve atrás utilizando de nuevo una 
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condición lógica como variable. Estas dos comprobaciones se encon- 
trarán una y otra vez en programas que muevan algo sobre la pantalla. 


Comprobación del módulo 3.1.5 


Ejecute el programa, inicialícelo, después llame a la función 2 y 
mueva el cursor parpadeante sobre la retícula, coloreando y borrando 
según desee. 


MODULO 3.1.6 

166D>REM RAFAELA 

1670 REM GRABAR CARACTERES 

1650 REM_ RX 

1690 PAPER “7 

1700 INPUT "Es correcta la figur 
(Z22Z) para salir "¿0 


1710 IF O%$="222" THEN RETURN 
="3* THEN 60 TO 17340 

1730 PAPER S: GO TO 14390 

1740 INPUT "CELDAS A GUARDAR? (LU) 
N CIGITO FOR CELCAR, EN CUALQUIER 
ORDEN): ;05% 

1750 LET CELCAS=LEN 0% 

1760 IF CARACTERES+CELDAS:<=21 TH 

EN GO TO 17390 

172720 PRINT AT 20,0;"“"NO HAY SUFIC 
IENTE ESPACIO.” 

17530 RETURN 

17390 FOR 1=1 TO CELDAS 

13500 FOR J=1 TO 3 

1510 LET B6BYTE=0 

1520 FOR H=1 TO 5 

1330 IF ASCUAL 045113 ,.J,H)="N" TH 

EN LET BYrTE=BYTE+2* (S-H) 

1540 NEXT H 

ER LET Z(CARACTERES+I-1,J)=BYT 


15560 NEXT y 
1570 NEXT I 
135290 LET CARACTERES=CARACTERES+C 


Este módulo transfiere el dibujo creado sobre la retícula a la tabla 
Z, en forma de una serie de números que, cuando se coloquen en el 
área de memoria de caracteres definidos por el usuario, reproducirán 
el carácter exactamente como había sido diseñado. 


Comentario 


Líneas 1794-187(. Cada línea de A$ se trata, en efecto, como un 
número binario de ocho dígitos, en el que cada cuadrado coloreado 
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está representado por un “1”. El número resultante se coloca en el 
espacio correspondiente de la tabla Z. 


Comprobación del módulo 3.1.6 


Puede entrar un carácter y comprobar que en la tabla Z se han 
entrado los valores adecuados. 


MODULO 3.1.7 


1S9SDO>REM RARE AAAAAAAAAAAAAAAIAA 
13910 REM ACTIUAR CELDAS 

1920 REM RX AAA 
1930 FOR I=1 TO 20 

1940 FOR (J=0 TO 7 

19350 POKE USR CHRS% (144+T1)+J,Z(I 
»J+1) 

19560 NEXT y 
1970 NEXT I 
1350 INPUT *"De 
caracteres”? ” 
19390 IF O$<>" 


3 comprobar Los 


se 
¿05 

S'” THEN RETURN 

E CUALQUIER TECL 
As 


20009 PRINT *"P 

A Y LUEGO sl A MODO GRAFICO. 
<c019 PAUSE y 

2020 CLS : INPUT 05 


2030 RETURN 


Los números guardados en la tabla Z se colocan en la memoria 
de caracteres definidos por el usuario. 


Comentario 


Líneas 1930-197(/. Esta es una función similar a la llevada a cabo 
por el módulo 2. 

Línea 2920. La entrada de un texto en esta línea es meramente 
una oportunidad para entrar algunos caracteres y comprobar los nue- 
vos caracteres definidos por el usuario que han sido guardados. Este 
texto no sirve para nada más. 


Comprobación del módulo 3.1.7 
Ahora ya está en situación de entrar hasta 24 de sus propios ca- 


racteres y comprobar que se han guardado adecuadamente en la me- 
moria. 


ns) 


MODULO 3.1.8 


2040>REM XARXA 
REM BORRAR CARACTERES 

REM. RARA 
IF CARACTERES=1 THEN RETURN 


FOR I=2 TO CARACTERES 
PRINT CHR% (143+I1) 

PRINT “*“"DESEA BORRAR ESTE 
(S,N) *” 

IF O%s="3" THEN GO TO 21€0 
CcLS 

NEXT. I 

RETURN 

FOR J=I-1 TO CARACTERES -2 
FOR K=1 TO $3 

LET Z(J,K)=Z (J+1,K) 

NEXT KE 


NEXT I 
ES =CARACTERES-1 


RETURN 


Este módulo da al usuario la opción de borrar caracteres que ya 
habían sido guardados. La operación de borrado realmente se con- 
sigue eliminando los elementos correspondientes de la tabla Z y des- 


pués volviendo a entrar los caracteres en la memoria. 


Comprobación del módulo 3.1.8 


Intente borrar algunos caracteres y después examinar el resto de 
los mismos para asegurarse de que no han sido deformados en nin- 


guna forma por el proceso. 


MODULO 3.1.9 

22 7D>REM FREE AAA 
2230 REM GUARDAR CARACTERES 

2290 REM RxX%XXXEXXIXXXFXEAEAAEA 
2295 LET Vóáh="" FOR 1I=1 TO CARAC 
TERES-1 FOR J=1 TO 3 LET YáS=róH 
+CHRE ZífT,¿L) NEXT JJ: NEXT  I 
25300 DIM X%$(LEN “Y5$) LET XBH=ró$ 
2305 FOR I=1 TO CARACTERES-1 
23109 PRINT CHF% (144+T);" “; 


23 
2350 SAVE NS$CODE 
23 


" "QUE NOMGRE QUIERE C 


CONJUNTO CE CARACTE 


PRINT 7“ N$ 
USR "A”",21x8 


355 SAVE N% CATA X$(L) 


253560 CLS : PRINT “A CONTINUACI 
OM REBOBINE POR FAVOR, PONGA 
EN - MARCHA LA CINTA Y PULSE CUAL 
QUIER TECLA." 

2370 PAUSE Y 

25350 VERIFY N$CODE USR "A",21%3 

2395 VERIFY N% DATA X$1) 

2590 PRINT *“* "CONJUNTO DE CARACT 
ERES VERIFICADO. ": PAUS 

E 200: RETURN 


Al conjunto de caracteres creados por el usuario se le da un nom- 
bre y se guarda en el cassette mediante dos formas, una de las cuales 
está relacionada con el próximo programa de este capítulo. 


Comentario 


Línea 2295. Los valores de Z se transfieren, en forma de códigos 
de carácter individuales, a la variable alfanumérica Y$. Ya que el 
Spectrum no puede guardar en el cassette una variable alfanumérica 
sin dimensionar como ésta, X$ se dimensiona para que tenga el 
mismo tamaño que Y$ y se transfiere a X$ el contenido de Y$. 

Líneas 2300-2340. Esta sección visualiza la totalidad del conjunto 
de caracteres e invita al usuario a que le dé un nombre. 

Línea 2354. Esta línea le dice al Spectrum que guarde en el cas- 
sette el contenido de su memoria, empezando por el principio del área 
de caracteres definidos por el usuario e incluyendo 168 octetos de 
memoria, es decir, la totalidad de la memoria dedicada a los carac- 
teres definidos por el usuario. 

Línea 2355. El conjunto de caracteres también se envía al cas- 
sette bajo la forma de X$. 

Línea 2384. El conjunto de caracteres guardados en la cinta 
puede verificarse de la misma forma que se hace con un programa y 
sería inteligente el hacerlo, no fuese el caso de que se hubiese pro- 
ducido algún fallo en la grabación de los caracteres tan duramente 
conseguidos. 


Comprobación del módulo 3.1.9 


Cree un conjunto de caracteres y guárdelos utilizando este mó- 
dulo. Asegúrese de que ha guardado el programa, y después des- 
conecte momentáneamente, para borrar el contenido de la memoria. 
Ahora entre LOAD N$ —utilizando el nombre que le había dado en 
N$— CODE USR “A”, 21*8 y después reproduzca lo que había guar- 
dado en el cassette. Cuando la carga haya terminado, deberá des- 


Fade 


cubrir que se han recuperado los nuevos caracteres. Si es así, el pro- 
grama se ha entrado correctamente y está listo para su utilización. 


Resumen 


Además de la utilidad que representa la creación de caracteres 
para utilizarlos en otros programas, en éste se ha encontrado con va- 
rias técnicas que volverá a encontrarse de vez en cuando en los pro- 
gramas gráficos. Entre éstas se incluyen el cursor parpadeante, la 
utilización de las teclas del cursor para mover un carácter sobre la 
pantalla, la utilización de condiciones lógicas para establecer los lí- 
mites de este movimiento y la utilización de tablas para simular la 
pantalla. 


Posibles mejoras 


1) Intente aumentar el número de caracteres que pueden defi- 
nirse en un bloque y pasar de 4 a 6. 

2) Haga que el programa visualice los caracteres que se están 
construyendo, en su tamaño correcto, junto a la retícula, a me- 
dida que se van construyendo. 


3.2 Diccionario 


Este pequeño programa aumenta en gran manera la utilidad del 
generador de caracteres, permitiendo que el usuario pueda crear un 
diccionario de todos los caracteres definidos por el usuario creados 
con anterioridad. Entonces el usuario podrá dibujar, basándose en 
este conjunto de caracteres y crear nuevas combinaciones de carac- 
teres, agrupándolos en conjuntos. 


MODULO 3.2.1 


1I00D>REM XXXIII 

1010 REM MENU 

1020 REM XERAL 

1030 PAPER_ 7: CELS : PRINT 

] DOCE CARACTERESE 
INICIALIZARN 
CARGAR. MUEUVOS 


RACTERESE 

1060 PRINT 31 CREAR NUEVO 
[INT OS 
1070 PRINT 1 GUARDAR CONJUNTO 
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CE CARACT 
1030 PRINT 3] 
10390 INPUT 2%: CLS 


1100 1F Z%="1" THEN GO SUB 1150 
1110 IF Z2%="2" THEN GO SUB 1430 
1120 IF Z2%="3" THEN GO SUB 1220 
1130 IF Z%="4" THEN GO SUB 1360 
1140 IF Z%5="S5" THEN GO TO 11606 
1150 GO TO 1030 

1160 INPUT "DESEA REGRABAR? (SN 
)"¡O$S$: IF 0O%$="S" THEN SAUE "DICC 
IONAR": BEEP 1,40: FPRIMT AT 10,0 
¡ "REBGOBINE, Y A CONTINUACION PÚL 
SE CUALQUIER TECLA PARA VERIFICA 
R": PRUSE 0: VERIFY "DICCIONAR": 
PRINT *"PROGRAMA VERIFICACO" 
11780 STOP 

Un módulo estándar de menú. 

MODULO 3.2.2 
1150>REM RRA 
11390 REM INICIALIZAR 
1200 REM 32% EZ 
1210 LET Pg="": RETURN 


Es el módulo de inicialización. 


Comentario 


Línea 121/. Esta variable alfanumérica se utiliza para guardar los 
valores que serán colocados en el área de memoria definida por el 
usuario. 


MODULO 3.2.3 


1440 REM CARGAR NUEVOS CARACT. 
1430 REM ARIAS 
1450 INPUT "NOMERE CEL CONJUNTO 
DE CARACTEREST "¡Ns 
1470 LORARCE NSGCODE USR "A",165: LO 
AO N% DATA T5AlL) 

1450 FOR 1=0 TO 20: PRINT CHR% ( 
144+T)3;" ";: MEXT I 

1430 INPUT "CESER ESTE.” CONJUNTO” 
y E a: IF Ug="N" THEN RETUR 


1500 LET P%=P%+T%: RETURN 


Este módulo carga desde la cinta los conjuntos de caracteres 
creados por el programa anterior y los añade al diccionario. 
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Comprobación del módulo 3.2.3 


Con este módulo entrado, ya podrá cargar conjuntos de carac- 
teres desde la cinta. P$ deberá ser ocho veces el número de ca- 
racteres cargado. 


MODULO 3.2.4 


1270 FOR I=1 TO LEN P$r160+1: PR 
INT AT 0,10; "GEEMREN 1: FOR J=1 
TO 20: FOR k=1 70 8 

1230 IF 160% (I-1) +58% (JI-1)+K>LEN 
P$ THEN 60 TO 1310 

1290 POKE USR "A"+(K-1),COCE PS3r(t 
160% (I-1) +S* 11-1)+K): NÉXT K 
1300 PRINT 20*tI-1)+J;" "¡CHAS 1 
dd: MEXT y 

1310 INPUT "NO.CAR.MuN="5. sSIG.Mz 
ZZ=SALIR";¡N5: F HN$="N" THEN GO 


I 
TO 1350 
Z¿Z" THEN RETURN 
$ + 
a; 


1315 IF N5$="2Z ' 

1320 LET C%=C PS (5% (UAL Ns-1)+1 
IF LEN C$=163 THE 

? 


TO S%UAL N53): 
N PRINT RT 21, "COMJUNTO DE CAR 
ACTERES LLENO": PAUSE 100: RETUR 
N 
1330 50 TO 1:310 
13509 CLS : NEXT Il: RETURN 


Este módulo visualiza el diccionario e invita al usuario a especi- 
ficar qué caracteres deben incluirse en el nuevo conjunto de carac- 
teres que se está creando. 


Comentario 


Línea 1250. Cualquier carácter definido por el usuario ya exis- 
tente queda borrado. 

Líneas 1274-1350. En estas líneas hay tres bucles. El bucle | vi- 
sualiza páginas de 2 caracteres; el bucle J visualiza los caracteres 
individuales que constituyen las páginas, y el bucle K coloca los ocho 
valores que constituyen cada carácter individual. Cada carácter se co- 
loca en la posición normalmente ocupada por A en el área de gráficos 
definibles por el usuario y después se visualiza. 
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Comprobación del módulo 3.2.4 


Ahora ya podrá construir nuevos conjuntos de caracteres, par- 
tiendo del material proporcionado por el programa anterior. 


MODULO 3.2.5 


I5SBD>REM RX 
1370 REM COLOCAR EN MEMORIA 

1350 REN XH%%%%XXXFIRRXIXIXE2H 

1590 FOR I=1 TO LEN C%: POFRE USR 
A RL GODE SELL NEXT 1 

1400 FOR I1=0 TO 20: PRINT CHR% ( 
144+1T1): NEXT I 

1410 INPUT "NOMBRE CARACT.T";¡N4: 
SAVE N$CODE USR "A",163 

1420 INPUT "“REBOGINE Y A — CONTINUO 

ACTION ENTER PARA VERIFICAR." ;05$ 
: UERIFY NS$CODCE USR "A",168: PRI 

NT AT 21,0; "CONJUNTO CE CARACTER 

ES VERIFICADO. ”": PARUSE 

200: RETURN 


Este módulo visualiza el conjunto de caracteres, invita al usuario 
a darle un nombre y después lo guarda como un bloque de códigos 
que podrán ser utilizados por otros programas según se desee. 


Comprobación del módulo 3.2.5 


Ahora ya podrá guardar sus conjuntos de caracteres, desconec- 
tar el Spectrum y volver a cargar el nuevo conjunto de caracteres. No 
se olvide de guardar primero el programa. 


3.3 Tangram 


Este es un programa que pide simplemente quese construya se- 
gún los propios gustos. Permite al usuario jugar al antiguo juego de 
figuras chino, llamado Tangram, con dos triángulos pequeños, uno de 
tamaño medio y dos grandes, junto con un cuadrado y un paralelo- 
gramo. Sin embargo, además de esto, el programa es una indicación 
de cómo pueden dibujarse fácilmente las figuras geométricas, tanto 
regulares como irregulares, en distintas posiciones u orientaciones, 
sin el recurso de matemáticas complejas, aunque es más fácil si usted 
sabe algunas matemáticas. 
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MODULO 3.3.1 


1000>REM 
1010 REM 
1020 REM 
1030 DEF 


ii 


+ Doe 


e 
EXEFALEFEA 
23 (ARFPI.+4d 
P 


4 AFPIZX4¿ 


Zo Dio 


X TNT oOTRCA 
Zz 


E DH: P E A 5 


MRUQUEE CON 


1030 LET-J$= ME 
1190 DIM 05132) 


Obsérvese que en este programa no hay menú. Todas las ins- 
trucciones se dan en la parte inferior de la pantalla durante la ejecu- 
ción del programa. Este módulo inicializa las variables necesarias. 


Comentario 


Líneas 1430-1049. Estas dos sencillas funciones se utilizan para 
determinar los puntos finales de las líneas que deben dibujarse. Para 
poder dibujar una línea, utilizando estas dos funciones, tan sólo hace 
falta saber el punto inicial, el ángulo y la longitud de la línea. Una vez 
dados estos parámetros, las funciones decidirán las dos coordenadas 
que serán suficientes para permitir utilizar la orden DRAW. Una mi- 
rada a las páginas 68 y 69 del manual de Spectrum demostrarán cómo 
pueden utilizarse las funciones COS y SIN para conseguirlo. Observe 
que las funciones pueden manejar únicamente aquellos ángulos que 
puedan expresarse en unidades de Pl-4 radianes o 1/8 de un círculo. 
Si desea una mayor flexibilidad podría insertarse un divisor mayor, tal 
como 184, con lo que se tendrían unidades de un grado. 

Línea 1450. Estos son los puntos iniciales a partir de los cuales 
se realizará cualquier dibujo. 


MODULO 3.3.2 

IE5SO:;REM xx 
1660 REM PIXEL MOUIL 

1670 REM EXFERFEAA LAA AA AAA 
1630 PRINT AT 20,0;L5%".15 

1699 QUER 1: FOR I=1 TO 2: PLOT 
BRIGHT 1 AND I=1;X,WY: PLOT X,vY+1 
¿ PLOT X,Y+2: PRUSE 1+2%x (I=1): N 
EXT I: OVER 0: PLOT INVUERSE 1; O 
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LER DL: Xx A E 

1700 LET TS5=INREYS: IF Tg%="" THE 
N GO TO 15690 

1710 IF T%="3" THEN RETURN 

1720 IF T%="21" THEN GO TO 13530 
1730 IF TK>3" OR TK<"5" THEN GO 
TO 16%0 

1740 LET xX=X+4+(TBH$="353")-(TH="5") 
LET xX=xX-(xX324d5)+[(X<5) 

LroD LEFT. Carr TES" TL DIAS AD) 
LET Y=zY+(Y<20) - (1 >170) 

1760 GO TO 1690 


Este módulo visualiza un pequeño cursor parpadeante en la po- 
sición en la que empezará cualquier figura y permite al usuario mover 
este cursor sin alterar el contenido de la pantalla. El método es similar 
al utilizado en el módulo de cursor del primer programa de este ca- 


pítulo, pero en este caso tan sólo se utilizan tres pixels. 


Comentario 


Línea 1694. Obsérvese la utilización de condiciones lógicas para 
establecer la característica BRIGHT. PLOT INVERSE 1; OVER 1 es 
una forma de mover la posición de trazado sin trazar un punto. Se 
utiliza porque al final del bucle, la posición de trazado se ha movido 
hasta XY + 2. La posición del carácter se pone con BRIGHT para que 


sea más fácil ver el pequeño cursor. 


Líneas 1740-1750. Estas líneas son exactamente equivalentes a 
aquellas que se han utilizado en el último programa para mover el 


cursor y establecer los limites de su movimiento. 


Comprobación del módulo 3.3.2 


Debe poder ejecutar el programa y mover el pequeño cursor so- 


bre la pantalla. 


MODULO 3.3.3 


1110>RENO AEREA 
1120 REM SELECCIOMAR FIGURAS 


1130 REN REZA 
1140 GO SUB 1650: PRINT AT 20,0; 
OS;KgS: LET SUPP=3 

1150 INPUT "EENNS AL 
" FIGURA: 1F FISURAS Aa THEN 560 TO 

1110 

1160 IF FIGURA=4 THEN 60 SUB 141 
0: 60 TO 1110 

1170 IF FIGURA=2 THEN INPUT “ula 
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AS UPP IF SUPFP=0 THEN G 


IGURA=1 THEN INPUT “aa 
A ":;TAMA: 1F TAMA=0 THEN 
10 


E A + 
LET A=0: 1F O=33 THEN GO 
1200 INPUT “Mii 0; Cl: 1F [C1 
=0 THEN GO TO 21110 


1210 LET LARGO=35: IF FIGU 
de LET LARGO=36562% ( (50 2) + 


20 LET Pa AICA, 


íñ D 
ni 


35 

he ; 

4090 IF FIGURA=1 THEN GO 
S0 IF FIGURA=2 THEN GO SUB 152 
50 IF FIGURA=3 THEN GO SUB 157 
ES 


D_IF LiBUJ= 1 THEN INPUT iia 
: , '¡O%: LET.A= 
OVER DES ON): PLOT INVERSE 1 
PP. QUER O Lis Y 

12580 IF DIBUJ<>1 THEN OUER 0: GO 
TO: 1110 

123230 IF FIGURA=1 THEN GO SUB 147 
a 

1300 IF FIGURA=2 THEN GO SUBE 


a 
o IF FIGURA=:3 THEN GO SUB 157 
1320 OVER 0: GO TO 121110 


o mom mor 


A a 


Este módulo acepta la información necesaria para visualizar una 
figura. 


Comentario 


Línea 1154. El programa, tal como está, es capaz de dibujar cua- 
tro figuras básicas: triángulos, paralelogramos, cuadrados y círculos. 
Si en este módulo se entra un “'/f”, dará como resultado la vuelta al 
cursor parpadeante. 

Línea 1176. Los paralelogramos no son simétricos, por lo que hay 
que decirle al programa en qué sentido tiene que dibujarlo. SUPP re- 
gistra cuál se ha especificado. 

Línea 1184. Existen tres tamaños de triángulo; son simétricos, 
rectángulos y cada uno tiene el doble de área que el anterior. 

Línea 1190. Para cada figura se elige un vértice clave, tal como 
se muestra en la ilustración. Siguiendo el sentido de las agujas del 
reloj a partir de este vértice se encuentra el lado clave, y es el ángulo 
de este lado el que se entra aquí. 

Línea 1200. Una vez determinado el ángulo del lado clave, tan 
sólo falta decir qué vértice de la figura debe situarse sobre el punto 
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marcado por el cursor. Los vértices se enumeran a partir del vértice 
clave. Todo esto quizá parezca muy complicado, pero cuando se uti- 
lice será evidente. 

Línea 1216. Los lados largos de los triángulos pequeños y de los 
paralelogramos tienen 36 pixels de largo, una cifra elegida arbitraria- 
mente. Los lados cortos serán por tanto de 36/SQR 2 pixels de largo 
—discútalo con Pitágoras si no está de acuerdo—. Los lados largos 
de los triángulos grandes aumentan en múltiplos de dos. 

Líneas 1230-1324. Esta sección llama a las rutinas que dibujan 
las figuras, excepto el círculo. Cada rutina se llama dos veces. En la 
primera ocasión la figura se dibuja sobre lo que ya hay allí (OVER), 
esto da como resultado el que cualquier línea tocada quede borrada 
o quede compartida con la nueva figura. Esto todavía permite al usua- 
rio ver si la figura está en la posición correcta. Si el usuario lo confirma, 
la figura se dibuja de nuevo con el OVER puesto a cero, con lo que 
cualquier error queda validado. Si la figura no se confirma, se dibuja 
con el OVER de nuevo, con lo que queda borrada. El usuario también 
puede borrar una figura que tenga un vértice en el punto marcado por 
el cursor— esto dará como resultado la pérdida permanente de cual- 
quier línea compartida. 


Comprobación del módulo 3.3.3 


Todavía no puede dibujarse ninguna figura, pero el programa 
ahora debe aceptar todas las características especificadas con an- 
terioridad. 


MODULO 3.3.4 


1410>REM xx 
1420 REM € 
1430 REM FEXLEAAA AAA 
1440 INPUT "¿¡R: 1F R=0 T 
HEN RETURN 

1450 CIRCLE OVER 1:xX,Y,R 

14560 INPUT * 

"¡0%: CIRCLE OUER [(GO%5="N")3,Xx 
,Y¿R: RETURN 


Este módulo permite al usuario establecer un radio y dibujar un 
círculo cuyo origen esté en el punto marcado por el cursor, con la 
opción de borrarlo de nuevo. 
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Comprobación del módulo 3.3.4 


Debe poder mover el cursor hasta un punto elegido y dibujar un 
círculo alrededor de este punto. 


MODULO 3.3.5 


1620 REM CIBLUJIAR FIGURA 
1630 REM XXXIII AAA 
1640 DRAL) FN ACI),FN (1: RETURN 


Este módulo establece el punto final de una línea que constituirá 
un extremo de la figura. Las dos funciones se han explicado antes. 


MODULO 3.3.6 


1450 REM TRIANGULOS 

1500 LET AG="436": FOR 1I1=0 TO 2: 
LET TI1=C1+T-3%1( (14201) 333): LET L 
ADO=CORTO: 1F Il=2 THEN LET LADO 
=LARGO 

1510 LET A=O0-VUAL AF TI120: GO SUB 

1610: MEXT Il: RETURN 


Este módulo, cuando se utiliza con el último módulo, dibuja trián- 
gulos. 


Comentario 


Líneas 1504-1516. El método utilizado aquí es sencillo. Para cada 
figura se crea una cadena de caracteres. Los caracteres individuales 
de la cadena dicen cuántas unidades de 45” debe girarse cada línea 
en sentido directo con relación al lado clave. Por lo tanto el lado clave 
está evidentemente a cero unidades de sí mismo. En el caso de un 
triángulo, el siguiente lado está a un ángulo de 135”, o 3 unidades, 
del lado clave. El sencillo bucle de estas dos líneas combina el ángulo 
entrado para el lado clave con cada uno de los caracteres de la ca- 
dena para determinar el ángulo de cada lado. La variable 11 asegura 
que si el bucle no empieza en 1, lo reducirá a 1 cuando pase de 3. 
Obsérvese la bifurcación en el bucle causada por la presencia de una 
sentencia IF. 
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Comprobación del módulo 3.3.6 


Ahora ya podrá especificar y dibujar triángulos. 


MODULO 3.3.7 


1520>REM Xx%%w 


1530 REM PARALE 
«le 
E 


EXE 
QSRAMO 
EFEAEFAERALE LARA 
5" FOR 1-0 TO == 
[ 


; IFC AT: LET 

LADOSLARGO: 1F I1l=2 OR Il=4 THEN 
LET LACO=CORTO 

1560 LET A=0O-UAL ABA(ITI1) +2: UAL AS 
(T1) * (SUPP=2): GO SUB 1610: NEXT 
I: RETURN 


1540 REM x%x%%3 
1550 _LET Ag$="0: 
O LET I1l=C1+I-4 


Este módulo es similar al módulo 6 excepto en que dibuja un pa- 
ralelogramo. Obsérvese cómo se utiliza SUPP para determinar qué 
tipo de paralelogramo se dibuja. 


MODULO 3.3.8 


1ISTOD>)REM XIX 
15350 REM CUADRADO 

1590 RENO XXXIII 
1600 LET LADO=LARGO: FOR I=90 TO 
3: LET A=0-2%1I: GO SUB 21610: NEX 
Tre Li. RETURN 


Este método visualiza un cuadrado por un método distinto del 
utilizado en los dos módulos anteriores. En este caso el ángulo del 
lado clave se va incrementando regularmente y se dibuja un lado a 
cada incremento. Este método funcionaría para cualquier figura re- 
gular y sería algo muy sencillo el permitir que el usuario especificase 
el número de lados, y el cambio de ángulo para cada lado sería 2Pi/ 
X, donde X es el número de lados. 


Comprobación del módulo 3.3.8 


Ahora ya debe disponerse de todas las posibilidades para dibujar 
las figuras del programa. 


MODULO 3.3.9 


I3S330O>REM RRE 
1340 REM GUARDAR CIBGUJO 
1350 REM RRA 
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1:0%: IF G%9$="S" THEN STOP 
ENPUÚT "NOMBRE DEL CIBUJO>"”; 


INREANCAR PRO 


e INPUT "QUIERE ABANDONAR? (5 


AVE 
STOP 


HNÍSCREENS 


Ll 


Este módulo permite guardar en el cassette las figuras creadas, 
para su uso posterior. 


Comentario 


Línea 1390. Esta orden guarda en la cinta el contenido de 6912 
posiciones de memoria, que se utilizan para guardar el contenido de 
la pantalla. Cuando se trata de gráficos en los que se han definido 
pixels individuales en lugar de caracteres, es el único método práctico 
de almacenaje. 


Comprobación del módulo 3.3.9 


Crear un dibujo y guardarlo en cinta. Borrar la pantalla y volver a 
cargar el dibujo, entrando LOAD *“'nombre” SCREENS y poniendo en 
funcionamiento la cinta. El dibujo debe irse regenerando gradual- 
mente. Inicializando el programa de nuevo con un GOTO 1, podrá 
seguir trabajando con el dibujo como si nunca hubiera estado ausente. 


Resumen 


Si está interesado en realizar dibujos de una forma fácil y bajo su 
propio control, las técnicas desarrolladas en este capítulo serán de 
mucha utilidad para usted. Con ellas podrá realizar figuras regulares 
e irregulares. La técnica de guardar ángulos relativos en una pequeña 
cadena de caracteres puede utilizarse para definir perímetros bas- 
tante complejos, que sería prácticamente imposible analizar mate- 
máticamente. Los módulos para dibujar estas figuras serían, como 
muestra el programa, cortas y requerirían pocas variables, por lo que 
son candidatos prácticos para ser añadidos a otros programas que 
podrían beneficiarse con el dibujo de algunas figuras. 


88 


Posibles mejoras 


1) En el módulo que dibuja círculos, no se prevé el borrado de 
un círculo que haya sido dibujado anteriormente. ¿Podría aña- 
dir esta característica? 

2) Intente añadir un módulo que dibuje un octógono, utilizando 
el mismo estilo que el módulo que dibuja cuadrados. 

3) Modifique el programa de forma que pueda dibujar con cual- 
quier ángulo en lugar de estar limitado a múltiplos de 45”. 


3.4 Artista 


Este programa, o uno parecido a éste, es una parte importante 
en el proceso de construir una biblioteca de programas. Si va a ne- 
cesitar programas que utilicen dibujos como parte de su salida, en- 
tonces tendrá que poder crear dibujos de una forma sencilla y po- 
derlos guardar. 

La intención de cualquier programa como éste es mejorar las po- 
sibilidades del Spectrum, que permite mover el cursor sobre la tota- 
lidad de la pantalla y visualizar caracteres gráficos, en cualquer po- 
sición de la misma, con la mínima pulsación de teclas. Por último, 
sería muy interesante en cualquier programa como éste, si el diseño 
creado pudiera guardarse de una forma más económica que utili- 
zando la función SCREENS, que requiere cerca de 7/04 bytes de me- 
moria y que es bastante lenta a la hora de cargar. Sin embargo, ya 
que no utilizaremos SCREENS, tan sólo podremos utilizar caracteres 
gráficos completos, incluyendo los caracteres definidos por el usuario. 
El programa se comportará como si los dibujos creados con DRAW, 
CIRCLE o PLOT no estuvieran allí. 

Nota: Si pretende utilizar gráficos definidos por el usuario en cual- 
quier dibujo que deba guardarse, cualquier programa posterior que 
cargue de nuevo el dibujo deberá realizar la carga con los mismos 
caracteres. 


MODULO 3.4.1 

IOODD>REN XERAL 
1010 REM VUARIABLES 

1020 REM RIIIE 
1030 DIM B$4[(2,530): FOR I=1 TO 30 
: LET B$(1,I3)="8": LET 64 (2,1) =C 
HRS 0: NEXT I 

1040 DIM A$5$13,20,309) FOR I=1 TO 
20: LET ARL2,1I) =64$1(1): LET AS5(S 
s1)=6%$(2): NEXT 1 
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1050 LET X=1: LET "Y=1 
1060 LET T=4 
1070 DIM 0O%51(32) 


1030 PAPER 7: INF 0: CLS 
1030 LET HMODO=1: CIM LAst2,20) L 
ET LS$(1)=" (MODO 1)": LET L5s(2)=" 


[ 3 ,.. 
1100 GO SUB 1320 


Comentario 


Línea 1036. Esta línea crea una variable temporal, B$, que se 
utiliza para acelerar el proceso de la carga de la tabla principal, A$. 

Línea 1/40. La tabla A$ se utilizará finalmente para guardar tres 
conjuntos de información: 


a) Los caracteres que haya sobre la pantalla. 

b) Las características de color de cada uno de los caracteres. 

c) Si el carácter tiene que visualizarse con visualización inver- 
tida. 


La segunda parte de la tabla se carga con ochos, debido a que 
el código de este carácter, 56, es el mismo que el de un byte de atri- 
buto que selecciona f para el color de la tinta y 7 para el del papel. 
Para más explicaciones sobre los códigos de atributos (ATTR) que 
determinan las características de color, ver la página 116 del manual 
del Spectrum. La tercera sección de la tabla se rellena con CHR$ f 
para indicar que no hay caracteres invertidos. 

Línea 1064. Esta variable registra la dirección en la que se mo- 
verá el cursor, expresada en octavos de segmento de un círculo, em- 
pezando con un 1 para la dirección vertical hacia arriba. 

Línea 109W. MODE es la variable utilizada para guardar si el ca- 
rácter se visualizará en modo normal o invertido. 


MODULO 3.4.2 

1S20>REM RX 

1325 REM ACEPTA CARACTERES 

1330 REM PÍO. PÁDER 7 AT0.0 

1340 PRINT INE 0; PA R 7F:¡ATO,JO 
lJ= ATAR] 


LS (MODO) ¡AT 21,0: MesPaACIO 
El MEE HERE “¿AT 0,21; "01 


1350 PRINT INF 0; PAPER 7; OUER 
1¡¿ATLX WM 00: PRUSE 3: PRINT INK 
a; PAPER 2; OVER 1¿AT X,W;¿"x"” 
1360 LET TS%=INKE"Y 

1370 IF T%5="" THEN GO TO 1350 
1350 BEEP .05,12 

1390 IF CODE T5%5532 AND COCE TH<ad 
1 THEN LET T=CODE T%-32: GO TO 1 
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340 

1400 IF COCE Tñ%=64 THEN LET T=2: 

0 TO 1340 

1410 1F Tg%="0U'" THEN 60 SUE 1170: 

60 TO 132 

1420 IF T%="X" THEN STOP 

1430 IF Tg%=""" THEN GO SUB 1600: 

60 TO 13209 

1440 IF T%5="2Z" THEN LET MOCO=MOC 

O+1: LET MODO=MODD-2% (MODO>2): G 

O TO 1320 

1450 1F T%=" *" THEN PORE. ( + 

S2%X+Y) )JCODE AS51(2,X,WY): GO 3 1 

540: 50 TO 1:340 

E IF TH="0" THEN PRINT AT a 

; “o LET AStLi¿¡X, 1787." LET HS 
X Y) =CHRS aTTR (X,W4): GO SUE :1 


> 


, 
dE GO TO 15340 
470 IF MODO<>1 THEN GO TO 1510 
1450 IF COCE T5>=49 ANC COCE THK< 
56 THEN LET T5%=CHR% (CODE TáÉ+50 
LET T%=CHR% (CODE T%-S5% (CODE 
$=136)): GO SUB 1110: LET ASIS, 
,¿Y3) =CHRS% 0: GO SUB 1540: GO TO 
— 


5 
4390 IF CODE T$>=65 ANC COCE THB< 
53 THEN LET TS%=CHR% (79+CODE T5É 
LETLAS (3, 1) =CHRS 0: GO SUB 


E 

y : 

10 IF COCE T%>=439 ANC CODE T%< 
5 THEN_ÁLET TS%=CHR%s_ (1391-CODE T 


Pa MES DA e 0 ES ES CIDO 


A 
$ -— 


$=135)): LET 

O SUB 1110: 
350 

LS 20 1" CODE T 

THEN LET añ 


Ss 

y: d a Y 
1110: GO SUB 15 
15:30 60 TO 1320 


GAR DAR 
DD 
-OTIA 1-0 
Cua 
D- Q 
we 


Gun! 


m 

=l 

IT 

H 

8] 

x 
Bi 


Este módulo distribuye el trabajo entre los módulos que consti- 
tuyen el resto del programa y convierte los caracteres entrados en 
caracteres gráficos de acuerdo con el modo seleccionado. 


Comentario 


Líneas 1394-14. El usuario no tiene que especificar la dirección 
o mover el cursor cada vez que se entra un carácter. Se mueve au- 
tomáticamente en una de las ocho direcciones. La dirección se es- 
tablece pulsando la tecla de Symbol Shift y una de las teclas del 1 
al 8. 

Línea 1450. Si el usuario desea mover el cursor hasta después 
de un carácter, sin alterar las características de color que están se- 
leccionadas, esto puede hacerse sencillamente entrando un espacio. 
Las características originales de color de esta posición de carácter, 
que estaban guardadas en la segunda parte del A$, se colocan de 
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nuevo en el byte de atributos correspondientes al espacio de este ca- 
rácter. Espero que ya se haya dado cuenta que el visualizar el cursor 
dos veces, utilizando la característica OVER, nos asegura que el ca- 
rácter actual que esté en este espacio quedará inalterado. 

Línea 146/. La entrada de un cero borrará todo lo que hubiera 
en el cuadrado correspondiente al carácter. 

Líneas 148-1524. De acuerdo con el modo seleccionado, el có- 
digo del carácter correspondiente a la tecla pulsada se convierte en 
el código del carácter gráfico deseado. Entonces se llama a la rutina 
que visualiza el carácter y se mueve el cursor. Obsérvese que los 
caracteres invertidos asociados con las teclas 1-8 no son realmente 
invertidos. Se trata de otro conjunto de caracteres, tomados del con- 
junto total de caracteres. Los caracteres invertidos definidos por el 
usuario sí que son realmente invertidos; es decir, que se visualizan 
con el color del papel y de la tinta invertidos. Para éstos, se coloca 
un indicador en la tercera área de AS. 


Comprobación del módulo 3.4.2 


Con este módulo instalado, deberá ver el cursor parpadeante, las 
instrucciones abreviadas en la parte inferior de la pantalla y la direc- 
ción del cursor en la esquina superior derecha. Podrá cambiar la di- 
rección pulsando la tecla de Symbol Shift y una de las teclas del 1 al 
8. Deberá poder cambiar el modo, pulsando la tecla Z. Todavía no 
podrá entrar ningún carácter. 


MODULO 3.4.3 


4 Mo 
“hr Za 

e e E 
EE: 


1 = — 
T=23) +(T=31+(T=z4): LE 
A 
1520 RETLURH 


Este es un módulo estándar para el movimiento del cursor. 


Comprobación del módulo 3.4.3 


Ahora ya podrá mover el cursor en la dirección elegida, pulsando 
la tecla de espacio o el cero. 
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MODULO 3.4.4 


1110>REM XHELAZZ 
1120 REM GRAFICOS ORDIMARIOS 
1130 REM XXXIII 
1140 LET ASsS$(1,X,Y)=T5S 

1130 PRINT INUERSE (CODE ASÍS,., 
YI)=1) ¡AT xX,YiT% 

1150 LET AS$(2,X,v)=CHAS$S ATTR e 
“7 RETURN 


Este módulo visualiza el carácter deseado en la posición del 
cursor. 


Comentario 


Línea 1146. El carácter que debe visualizarse se coloca en la 
posición equivalente de la primera parte de A$. 

Línea 1150. El carácter se visualiza invertido si existe el indicador 
correspondiente en la tercera sección de A$. 

Línea 1160. Las características de color se escogen utilizando la 
función ATTR y se guardan en la segunda área de A$. 


Comprobación del módulo 3.4.4 


Ahora ya podrá visualizar cualquier carácter gráfico, en cualquier 
posición dentro de la retícula de 29 x 3f. No podrá seleccionar ca- 
racterísticas de color hasta que se entre el siguiente módulo. 


MODULO 3.4.5 


1170>REH o de 
11530 REM ATRIGUTOS 

11390 REM EXHEREXRARA LALALA 
1200 PRINMNT AT 9,0; "“ATRIGUTOS dd 


1210 DIM 0(4) 

1220 FOR I=1 TO dq 

1230 INPUT CHRFR% (216+T1);U1I) ¿ 
1240 IF 0(1)>9 THEN GO TO 1230 
1250 IF I=1 THEN INF G(I) 

1260 IF I=-2 THEN PAPER 0Q1(1I) 
1270 IF 1>52 AND 0(1);1 THEN GO T 
0 1230 

1250 1F I=3 THEN FLASH D(I) 
1230 IF I=-4 THEN ERIGHT QT) 
1300 HEXT I 

1310 RETURN 


Este sencillo módulo pide cuatro entradas que establecen las ca- 
racterísticas de INK, PAPER, FLASH y BRIGHT. 
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Comprobación del módulo 3.4.5 


Ahora ya podrá variar las características de color de los distintos 
puntos de la pantalla. 


MODULO 3.4.6 


1600>REM RAFA 
1610 REM CREAR TEXTO EMPAQUETADO 
1620 REN XXXIII 
A PRIM INE 0; PAPER 7;¿AT 21, 
Ea 


a 
=” : LET ESPACIO=0: L 


16509 FOR I=1 TO 20 FOR J=1 TO =3 
1660 PRINT INE 6;AT 1,0; Mc 

16709. IF AR$(1,1,3J)=" “ THEN LET E 
SPACIO=ESPACIO+1: LET INMC=1: GO 

TO 1700 

1650 IF IND=1 THEN LET S%=53%4+CHR 
$ 255+CHR% ESPACIO: LET INC=0: L 
ET ESPACIO=0 

1690 LET 3S%=53%$+A5$(1,T1I,J)+A%51(2,1I, 


DJ FAB 

1700 NEXT +) 

1710 1F INC=1 THEN LET 3%==S%+CHR 
$ 235 CHAS ESPACIO 

1720 LET IND=1: LET ESPACIO=0 
1730 NEXT I 
1740 BEEP 1,2 


Este módulo crea un texto condensado. Es decir, un texto en el 
que se han eliminado todos los espacios, a partir del dibujo guardado 
en A$. El número de espacios eliminados se guarda en forma de un 
único carácter indicador dentro del texto. 


Comentario 


Línea 1670. Si el bucle encuentra un espacio lo registra en la 
variable ESPACIO y pone a 1 el indicador IND. Este proceso continúa 
hasta que no se encuentra ningún otro espacio. 

Línea 1680. Una vez encontrado un carácter que no es un es- 
pacio, se añade un indicador en el texto (CHR$ 255 o COPY) seguido 
por un único carácter que representa el número de espacios que se 
han eliminado. 

Línea 1694. Los tres bytes correspondientes de las tres áreas de 
A$ se añaden al texto condensado. 

Línea 1710. El final de cada línea en A$ viene indicado por un 
COPY seguido por el número de espacios que precedían el final de 
la línea. 
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MODULO 3.4.7 


1I7SO>REM AREXFIFIAAA AECA 
1760 REM TEXTO EMPAQUETACO 

1770 REM EXA XAEALEAAAAAAAAAAAZ 
17350 PARAPER 7: CLS : PRINT AT 1,1 
; LET 5=0: LET C=1 

1790 IF 3%(2)=CHRA 255 THEN LET 

C=C2+1 IF S%(C0) <>CHRS 0 THEN PRI 
NT O$1 TO CODE S51CI1JI; LET S3S=3+ 
COCE S%41(C)J): PRINT ” ' AND S-30= 
INT (S/30);: LET C=C+1 LF EL=sLE 
N 5% THEN GO TO 1790 : 

1500 IF C>LEN 3% THEN GO TO 1540 
1510 IF S%4[(C)=CHR% 0 THEN LET C= 
C+1 

13820 LET S=3+1: INUERSE CODE 5541 
C+2) PRINT S$IC);: POFRE.” (232396- 
32% (PEER 256589) -PEER 25688+52) ,C 
ODE 3% (2+1): INVERSE 0: 1F 3-30= 
INT” (S-30) T 


HEN PRINT "0; 
, +43: IF C<=LEN 5% THE 
N GO TO 1790 


1540 INPUT INE 0; PAPER 7; "GUARC 


ARLO?- (SN); C% 

1850 IF 0%<>'"S"” THEN RETURN 

1560 INPUT "DE POR FAVOR UN NOME 
RE PARA EL DIGUJO: ";¿N$ 


1370 DIM PS5ILEN S%$1: LET PS5=S53 
1550 SAVE N% CATA PA() 

15390 INPUT '"REBGOBGINE LA CINTA, P 
ULSE ""ENTER"" Y PONGALA EN MARC 
HA PARA VERIFICACION "¡05% 

1900 VUERIFY N% DATR P5() 

1310 PRINT AT 21,0; "DIBUJO UERIF 
ICADO:": STOP 

1920 INPUT T%: PRINT OCOCE T%: GO 
TO 1920 


Este módulo vuelve a visualizar el texto condensado para su ins- 
pección y lo guarda bajo demanda. 


Comentario 


Línea 1790. Esta línea examina el texto condensado buscando el 
indicador especial, COPY, que indica que el siguiente carácter con- 
tiene el número de espacios que han sido eliminados. Cuando se en- 
cuentra un indicador se inserta el número correcto de espacios. Ob- 
sérvese que deben visualizarse dos espacios al final de cada línea 
para tener en cuenta el hecho de que la retícula original tenía única- 
mente 3( caracteres de ancho. 

Línea 1820. Si el carácter en la posición C no es un indicador, 
entonces se visualiza con los colores invertidos si el carácter siguiente 
más 1, C+2, es CHR$ 1. Las características de color se seleccionan 
colocando (POKE) el valor del carácter C+1 en el área de atributos. 

Línea 183/. El puntero se mueve tres espacios ya que cada ca- 
rácter requiere tres espacios en el texto condensado. 
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Líneas 1840-1914. Si el usuario desea guardar el dibujo tal como 
está guardado en el texto condensado, deberá darle primeramente un 
nombre. Hay que tener en cuenta que el Spectrum no guardará textos 
adecuadamente si no se han dimensionado, por lo que deberemos 
crear un nuevo texto, P$, de la misma longitud que el texto conden- 
sado. 

Una vez guardado el dibujo, podrá recuperarse de la cinta me- 
diante otro programa y volverse a visualizar mediante una rutina equi- 
valente a la de las líneas 178(-183M/. Véase también módulo 4.2.5. 


Resumen 


Utilizando esta serie de tres programas tendrá un conjunto de 
herramientas que le permitirá mejorar muchos de sus programas y 
llevar a cabo muchas aplicaciones que no serían posible sin la ayuda 
de herramientas gráficas efectivas. 

Al diseñar sus propios gráficos quizá descubra que unas hojas 
de papel cuadriculado le ayuden a planear sus intenciones antes de 
sentarse delante del teclado; descubrirá que de esta manera ahorra 
mucho tiempo. Si puede encontrar dibujos del tamaño adecuado tam- 
bién le puede ayudar el dibujarlos sobre plástico transparente y des- 
pués pegarlos sobre la pantalla del televisor. Entonces tan sólo hay 
que seguir el dibujo trazado. 


Posibles mejoras 


1) Para guardar mediante este programa un dibujo que ocupe 
toda la pantalla se siguen necesitando hasta 186 caracteres. 
Si no necesita las características invertidas en sus dibujos, 
esto puede reducirse en un tercera parte. Si sólo requiere un 
único color en sus dibujos, tan sólo necesitará un solo espacio 
para guardar cada carácter del dibujo. En una de las aplica- 
ciones del capítulo de temas educacionales se supone que 
usted habrá modificado los módulos del texto condensado 
para que guarden y reproduzcan los caracteres y no los atri- 
butos. 
Diseñe un diccionario para sus dibujos, si tiene memoria su- 
ficiente, es decir, un programa que guarde un buen número 
de dibujos y los visualice bajo demanda o secuencialmente. 
3) Podrían añadirse dos modos más, uno que aceptase letras 
normales del teclado y los números, y el otro que aceptase 
sus equivalentes invertidos. El problema reside en que no 


2 
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pueden darse órdenes a menos que se empiecen a excluir 
teclas. Utilizando el ENTER (CHR$13) como orden para cam- 
biar de modo, podrán utilizarse los dos modos aunque no dar 
órdenes. ¿Podría adaptar el programa para realizar esto? 


3.5 Diseño 


Tengo un especial cariño por este programa, sencillamente por 
que las ideas en las que está basado no son mías: fueron tomadas 
de un excelente libro, The Principles of Interactive Computer Gra- 
phics, de William M. Newman y Robert F. Sproull. El motivo de este 
cariño es que el programa me sirve como recordatorio de lo mucho 
que queda siempre por aprender sobre los principios de programación 
y de cuantos campos están esperando ser abiertos a cambio del mí- 
nimo coste que representan unos pocos libros. Basado en dos sen- 
cillos procedimientos sacados de este libro, este programa le permitirá 
definir un dibujo de hasta 65536 por 65536 pixels de tamaño, exa- 
minar este diseño con distintas escalas y girar la totalidad o parte del 
mismo sobre la pantalla. Una vez se haya acostumbrado a su utili- 
zación será capaz de poderlo utilizar en una gran variedad de apli- 
caciones donde se necesite cambiar y manipular dibujos de una forma 
rápida y fácil. 


MODULO 3.5.1 

A A 
1010 REM MENU 

1020 REM REXELELELLE ALEA 
190530 INE Y PAPER 6: CLS : PRINT 


PAPER 2; IM, ¿¿AT 1,10; "DISENO" 
1040 PRINT *"ORCENES DISPONIBELES 


10530 PRINT *” 1) INICIAL IZAR PA 

NTALLA" 

105609 PRINT *" S23ANADIR NUEVAS 

LINERS" 

1070 PRINT " 3) ESCALAR-GIRAR" 

1050 PRINT * 4)BORRAR LINEAS" 

1030 PRINT *” S) FINALIZAR" 

1100 INPUT 2%: CLS 

1110 IF Z%=-="1" THEN GO SUB 1190 

1120 IF Z%="2" THEN GO SUE 1530 

1130 IF 2Z%="3" THEN : LET BUSCAR 

=0: 60 SUE 1750 

1140 IF Z2%$="4" THEN : LET BUSCAR 

=1: 60 SUBE 1730 

1150 1F Z26="5” THEN GO TO 1170 

11680 £LS.: 60_ToO_ 1000 

11720 INPUT "DESEA GUARDAR ESTE b 

ISENÑNO? "¿0%$: IF 0%5="3" THEN SAVE 
"DISENO”: PRINT "REBOBINE, PULS 

E UNA TECLA PARA VERIFICAR": PAU 
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4 - LAWRENCE-Spectrum 


VERIFY "DISENO": PRINT “UE 


Este es un módulo estándar de menú. 


MODULO 3.5.2 


11DDREM FRA AAA 
1206 REM INICIALIZAR 

1210 REM. 
1220 LET IZQUIERDO=0: LET INFERI 
OR=0: LET SUPERIOR=167: LET DERE 
CHO=235 

1230 LET AKg= 


1240 CEF FN A(I=2s EFCOCE (ASF(II) 
)4+CODE AS$(TII1+1) 

1250 DEF FN AS$(3)=CHA5S INT. (Txl.-2 
56) + CHESS. (TX1-236x% INT (TX1.-256)) 
+CHRAS INT (TY1-256) +-CHORS (TY1-25 
E6FINT.— (Trl-2561) 

12560 DEF FN E$()=CHR% INT (Tx2,-2 
56) +¿CHRAS$.- (TX2-256x%INT — (TX2,-256)) 
+CHRA% INT (TrY2-256) +CHRAS (Tr2e-25 
6% IMT (Tr2-256) 1 

1270 LET AsSf=" *“: RETURN 


Las funciones y variables que se definen aquí se discutirán en el 
curso del comentario del programa. 


MODULO 3.5.3 


12530>REM FREE 
1230 REM DIGUJAR LINEAS 

153500 REM EXE 
13510 IF (xX1<IZ2QUIERCO AND xX2:<IZ20 
DIERDO) OR [(xX1;>;DERECHO AND Y2:DE 
RECHDO) OR. (W1I>SUPERIOR AND '"Y2>Ssu 
PERIOR) OR (r1I<INFERIOR AND Y2:<I 
NFERIOR) THEN LET QOUT=1: RETURN 

1320 IF Y1>SUPERIOR THEN LET BOR 
DE=SUPERIOR 

13530 IF Y1< INFERIOR THEN LET EBOR 
CE=INFERIOR 

1340 IF Y1< INFERIOR OR Yl>SUPERI 
OR THEN LET X1l=X1+(X2-X1) + (BORDE 
Y 1) (12-13): LET Y1I=B0ORDE 

1350 IF Y2>SUPERIOR THEN LET BOR 
DE=SUFERIOR 

1360 IF Yv2<INFERIOR THEN LET BOR 
DE=IMNFERIOR 

1370 IF r2< INFERIOR OR Y2>SUPERI 
OR THEN LET xX2=x2+ (xX1-2) * [BORDE 
-Y2) r (Yr1-Y2): LET vY2=BORDE 

1350 IF X1>DERECHO THEN LET BORD 
E=DERECHO 

1330 IF X1<IZQUIERDO THEN LET BO 
REOE=TIZQUIERDO 

1400 IF X1<IZQUIERCO OR xX1:DEREC 


98 


HO pS: LET Ylil=zrYril+tY2 -Yr 1) ¿ (BORDE 
-X1) r (X2-X1): LET X1=BORDE 

1410 IF xX2>DERECHO THEN LET BORD 
E=CERECHO 

1420 IF Xx2<IZ2GQUIERDO THEN LET E 
RDE=IZQUIERDO 

1430 IF X2< IZQUIERDO OR X2>DEREC 
HQ a LET Yr2=r2+1Y1-r2]) *¿ (BORDE 
<X2) / (X1-Xx2)]: LET X2=B0RDE 
1440 IF X1-IZQUIERDO:=0 AND 2 
ZOUIERDO>=0 AND Xx1-IZQUIERDO:= 
S ANC xXx2-TZ2QUIERDO:<=255 AMD "ri 
NFERIOR>=0 ANC Y1-IMNFERIOR:<=1567 
AND Y2-INFERIOR:=0 AND Y2-INFER 
OR<=167? THEN PLOT xX21-IZQUIERDO., 
1- INFERIOR+S: DRAL INT  (xX2-X1), 
NT (Yv2-Y1) 

1430 RETURN 


HÁH HH 


La función de este módulo es tomar dos conjuntos de coorde- 
nadas, X1/Y1 y X2/Y2, y decidir si algún trozo de la línea dibujada 
entre dos puntos así definidos pasará a través de la pantalla. Si cual- 
quier parte de la línea cae dentro de la pantalla, será dibujada, ig- 
norándose las otras partes de la línea. 


Comentario 


Línea 1310. La pantalla forma una ventana sobre la totalidad del 
dibujo que se va creando y los límites del área limitada por la pantalla 
se guardan en las variables SUPERIOR, INFERIOR, IZQUIERDO y 
DERECHO. Si INFERIOR se pone a 50 e IZQUIERDO a 56% la pan- 
talla visualizará los pixels que caen entre las coordenadas 5/0 y 755 
horizontalmente y 506 y 667 verticalmente. El propósito de esta línea 
del programa es desconsiderar cualquier línea del dibujo cuyo prin- 
cipio y final estén por encima, por debajo o a un lado del área del 
dibujo cubierto por la pantalla. 

Líneas 1320-1330. Si una línea empieza por encima o por debajo 
del área cubierta por la pantalla, estas dos líneas colocan la variable 
BORDE para que coincida con la parte superior o inferior de la pan- 
talla. 

Línea 1349. Esta línea calcula la posición horizontal por la que la 
línea pasará sobre el extremo superior o inferior para aquellas líneas 
que empiecen por encima o por debajo de la pantalla. La fórmula de 
la primera mitad de la línea no dice nada más que, si por ejemplo, la 
línea en cuestión pasa a través del borde superior de la pantalla por 
la mitad de su componente vertical, también pasará por la mitad de 
su componente horizontal. Evidentemente esto tan sólo será verdad 
para líneas rectas. 

Líneas 1350-1434. El mismo procedimiento se lleva a cabo con 
respecto a las coordenadas Y1, X2 e Y2. 
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Línea 1444. Ya que es posible que una línea no esté totalmente 
por encima, por debajo o a algún lado de la pantalla y no obstante no 
pase a través de la propia pantalla, esta línea del programa hace una 
comprobación final de que las coordenadas calculadas están real- 
mente dentro de la pantalla. Si así es, entonces se traza el primer 
conjunto de coordenadas y se dibuja una línea hasta el segundo. 


Comprobación del módulo 3.5.3 


Si este módulo funciona correctamente ya podrá ejecutar el pro- 
grama (RUN) e inicializar las variables. Una vez hecho esto, detenga 
el programa, y entre en modo directo, 127/2040 y 127/1040 como va- 
lores de X1/Y1 y X2/Y2. Con estos cuatro valores, si ejecuta GOTO 
128, deberán dar como resultado el dibujo de una línea desde la 
mitad del límite superior de la pantalla hasta más o menos la mitad 
de la misma. 


MODULO 3.5.4 

IS3GO>REM 2222 
1540 REM CURSOR 

1550 REM 222% 
1560 LET ANGSGULO=0: LET S35=-1: GO = 

LB 1320 

1570 PRINT AT 21,15; "'BlsA LACEFEM—MO 

VER" ¡¿AT 21,4; "xX1="¡¿01¡;AT 21,3; v 
="¡¿¡02: LET XxX=Q21: LET Y=02 

1550 60 SUB 1660: IF TG%5="2" THEN 
GO SUB 132080: PRINT AT 21,13; Qs 

ALÍDEFEMÓONVER*: LET xX=0L: LET Y<eO 


2: GO TO 1570 

1590 LET TTX1ISX: LET TrtYl=sY3 1F 

TG%4="40" THEN RETURN 

1600 PRINT AT 21,0, “"x2=";x;¡" a 
AT 21,9; "Y2=";,v;" “: PAUSE SB: 

SO SUB6B 1660: IF Tg$="2" THEN GO 5 
UB 1520: PRINT AT 21, 15; ¿MSAL.HOE 
FEMDUER": LET xX=01: LET Y=02: 


TO 15600 

1610 IF TG%="0" THEN RETURN 

1620 LET xX2=xX: LET Tx2=xX: LET v2 
==. LEE Tr2a=r: CEET XL=TTIAD Ss MET 

pais! AU 1 E des UN LET THL=XT:  LETOTFI=YL:: 


OVER 1: GO SUb56 1250 

1630 INPUT "CONFORME? ";¡;O%: IF Q 
$="3" THEN OVER 0: LET AS=AS$+FN 
ASIA FN EL) 

1640 560 SUB 1230: OUER 0: PRINT 
AT 21,0; "X1"¿AT 21,8;"Y1": IF OS 
<2>"3" THEN PLOT OUER 1;TX1-IZQUI 
ERDO.,TY1-INFERIOR+3: PLOT QUER 1 
¿ TX2- IZQUIERDO, TYr2-INFERIOR+835 
1650 50 TO 15350 

16609 PLOT BRIGHT 121; OUER 1; X-1I20 
UTERDO,Y-INFERTOR+3: PAUSE 2: PL 
OT ERIGHT 0; QOUER 1; X<-IZQUIERCO, 
Y - INFERIOR+3: LET TS%=INKEYS: IF 
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SEO AEN O ¿O 5 
O LET Xx=X+(T$="3")-(TgH4="5") 
Dx $="I")-10%1(T%= 
$ 


VD LET Y=Y+1(TS$=""")-(TS%="5") 
0 LET Y=Y+10x%1(T1%="U")-10%(T%4= 


OD IF xX>DERECHO THEN LET xX=CER 


IF xX<IZQUIERDO THEN LET X=I 
¿DOUTIERDO 
17:30 IF Y>SUPERIOR THEN LET Y=SU 


1740 y YXIINFERIOR THEN LET "r=I0WN 


1750 IF Tg%="1" THEN PLOT OVER 1; 
X- IZQUIERDO, Y-INFERIOR+85: RETURN 


1755 IF Tg%4="0" OR Tá%="2" THEN RE 

TURN 

E PRINT AT 21,3;xX;" "¡AT 21, 
w ñ E ; .. sr. 

1770 GO TO 1660 


Gu :0-J1 
a 
r 
m 
—i 
X 
!l 
XK 
+ 
p 


dd A Ar 


RMe Pr cer 
TF 
O 


e] 
fu 
Q 


El propósito de este módulo es permitir al usuario mover un pe- 
queño cursor sobre la pantalla para poder establecer las coordenadas 
inicial y final de una línea. 


Comentario 


Línea 1566. El programa es capaz de ampliar la totalidad del di- 
bujo con cualquier factor especificado y girarlo, aunque las líneas tan 
sólo pueden entrarse con el dibujo a tamaño normal y sin estar girado. 
Esta línea establece el ángulo del dibujo (ANGULO) y el factor de 
reducción (S) antes de llamar al módulo que dibuja la parte del dibujo 
que el usuario enmarca con la pantalla. 

Línea 1574. Quizás haya observado que la pantalla tiene tan sólo 
168 pixels de alto, en lugar de los 176 permitidos. Esto se hace para 
permitir que la línea 21 sea utilizada para visualizar las coordenadas 
actuales del cursor con respecto a la esquina inferior izquierda del 
dibujo total. 

Línea 1594. En la ejecución del programa se utilizan cinco con- 
juntos de variables en distintos puntos para guardar los mismos datos, 
y cuyos nombres son X/Y, X1/Y1, X2/Y2, TX1/TY1 y TTX1/TTY2. La 
sencilla razón de hacerlo es que a veces el valor de una coordenada 
se modifica temporalmente para algunos propósitos. La T es un in- 
dicador de que la variable correspondiente es un lugar de almacenaje 
temporal. Esta línea también permite al usuario mover la ventana de 
la pantalla tras definir el principio de una línea. De esta forma pueden 
definirse líneas que pasen por un área superior a la de una pantalla. 

Línea 1634. Una vez dibujada la línea especificada, se invita al 
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usuario a que la confirme o que la rechace. Si se confirma, las coor- 
denadas X1/Y1 y X2/Y2 serán guardadas en forma de dos bytes me- 
diante las funciones FN A$ y FN B$, en el texto no definido A$. 

Líneas 1660-177M. Reconocerá esto como una rutina estándar 
del movimiento del cursor. La única diferencia es que además de las 
propias teclas del cursor, las teclas que están inmediatamente debajo 
de ellas y a la derecha (TYUI) pueden utilizarse para mover el cursor 
10 espacios a la vez, acelerando así el proceso. Si se pulsa la tecla 
1 se produce el retorno a una parte anterior del módulo, definiendo 
así uno de los conjuntos de coordenadas. 


Comprobación del módulo 3.5.4 


Entrando temporalmente la línea 1824 con un RETURN y defi- 
niendo 01 y /2 en modo directo como 128 y 83 respectivamente, po- 
drá llamar a este módulo y mover el cursor sobre la pantalla, definir 
dos posiciones —todavía no podrá mover la pantalla entre el punto 
inicial y final de la línea— y ver visualizada la línea para que la con- 
firme o la rechace. 


MODULO 3.5.5 


1*3D?;REM FAIRE 
1730 REM GIRAR 

1500 REM EXE EAAAAAAAAEIA 
1510 INPUT "ANGULO?" ANGULO: LET 
ANGULO=ANGULO*PI-180: INPUT "FA 
CTOR DE ESCALAF?",S: IF S<=0 THEN 
LET 3=1 

1520 INPUT "COORDENADAS DEL ORIG 
EN?" 01,02: 1F Z4="2” AND 01<127 
THEN LET 0l=127”7 

15350 IF Z5%5="2"” AND 02:<53 THEN LE 

T O2=53 

1540 LET IZOUTERCO=01-127: 

NFERIOR=02-835: LET DERECHO=IZ0UI 

ERDO+255: LET SUPERIOR=INFERIOR+ 
LO? 

1550 CLS3S 

1560 FOR I=2 TO LEN A% STEP $ 
1570 IF TI>LEN AS THEN LET BUSCAR 
=0: 60 TO 370 

1000 LET LL LET X1=(FN A()-O1 


139” 
1l=1I: 
IPLDE AT Til 
A 
E 


1+2: LET Y2=1(FN A“) 
-02)/S: LE 1=11+2: LET X2=(FN 
AC) -D01)/S5: LET 11=11+2: LET Y2=( 
FN A0)-02)//3S 
15390 LET TxXx1=XxX1: LET Tx2=x2: LET 


TYi=Y1: LET TY2=Y2 

19900 LET_xX1=01+INT (TX1%C005 ANGU 
LO+TY1F+SIN_ ANGULO? 

1910 LET_x2=01+INT (TxX2%005 ANGU 
LO+TY2%SIN ANGULO) 

1920 LET Y1=024+INT_(-TxX1%*SIN ANG 
ULO+TW1+C005 ANGULO) 

1930 LET ve=02+1INT (-Tx2%SIN ANG 


102 


ULO+TY2%COS ANGULO) 

1940 IF BUSCAR=1 THEN COUER 1 
1250 GO SUB 12580: IF BUSCAR=1 TH 
EN GO SUB 1460: IF T%="0" THEN L 
ET T%$="": LET BUSCAR=0: RETURN 
19560 NEXT TI: LET. BGUSCAR=0 

1370 INPUT "ENTER=CONTINUAR.-""CC 
C=COPY";:05% 

1950 IF O%="CCC" THEN COPY 

1930 RETURN 


Este es el módulo que permite mover sobre el dibujo la ventana 
representada por la pantalla. 


Comentario 


Línea 1826. La posición de la pantalla con respecto a la totalidad 
del dibujo se define estableciendo la posición del centro de la pantalla. 
Obsérvese también que cuando la función del programa es 2 tan sólo 
están disponibles para el usuario posiciones con coordenadas posi- 
tivas, es decir, el usuario tan sólo puede dibujar líneas en partes del 
dibujo que tengan direcciones positivas. Esto es debido a que las di- 
recciones negativas no pueden guardarse en A$ mediante las dos 
funciones FN A$ y FN B$. En otros momentos durante la ejecución 
del programa, como por ejemplo cuando un dibujo se ha girado, po- 
drán crearse líneas cuyos extremos tengan coordenadas negativas y 
entonces se visualizarán sin problemas si la ventana de la pantalla se 
coloca para que las visualice. 

Línea 184()/. Se establecen los límites de la pantalla para que con- 
cuerden con el centro especificado de la misma. 

Líneas 1864-1884. Utilizando la función FN A, se convierten los 
valores guardados en A$, de nuevo en coordenadas numéricas. Se 
convierten en posiciones relativas al centro de la pantalla. Entonces 
esta distancia se multiplica por el factor de escala. Después las coor- 
denadas se giran respecto al centro de la pantalla el ángulo re- 
querido. 

Líneas 1894-1936. El proceso para hacer girar un punto de coor- 
denadas X e Y un ángulo, por ejemplo A, es aplicar la fórmula: 
X2=X*COS A + Y*SIN A e Y1=—X*SIN A + Y*COS A. 

Línea 1946. La variable BUSCAR se utiliza para indicar que debe 
llamarse al módulo de borrado. 


Comprobación del módulo 3.5.5 


Ahora ya podrá mover la ventana de la pantalla sobre el dibujo y 
también mover la pantalla entre el primer y segundo conjunto de coor- 
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denadas al definir una línea. También podrá visualizar la totalidad del 
dibujo, o parte del mismo, a distintas escalas y a distintos ángulos. 


MODULO 3.5.6 

14 SDD>REM ARIAS 
1470 REM BGORRAR LINEAS 

1450 REM kr 
1430 PRINT OVER 0;¿AT 21,0; "BCONF 
IRMARINSORRARESALIR": LET OUT=0: 

OVER 1: GO SUB 1250: GO SUB 1230 
: LET TS=zINREYS: IF OUT=<=1 THEN G 
Ó TO 1510 

15300 IF T5%<>”"0" AND Tá<>" Y" AND 

TH<>"N" THEN GO TO 14390 

1510 OVER 0: IF Tg%="Y" OR OUT=1 

THEN GO SUB 1230: RETURN 

1520 OVER 21: GO SUB 1250: PRUSE 

50: QOUER 0: LET ASs=ASt( TO TI-1)4+A 
$ (1458 TO 3): LET I=I-3: RETURN 


Este módulo dibuja la línea indicada por la variable del bucle | del 
módulo anterior. La línea se dibuja dos veces con el atributo OVER y 
entonces se da al usuario la oportunidad de especificar que bien la 
línea permanezca o que el programa salga del módulo o que la di- 
rección de la línea correspondiente se elimine de A$. La línea par- 
padeará hasta que se realice una de estas elecciones. 


Comprobación del módulo 3.5.6 


Ahora ya podrá borrar líneas. 


Resumen 


Con un poco de imaginación, este programa puede ser una he- 
rramienta de mucha utilidad para muchas aplicaciones. Pueden rea- 
lizarse planos, dibujar mapas o sencillamente jugar. De hecho se 
puede conseguir que este programa simule muchas de las caracte- 
rísticas de otros ordenadores gráficos mucho más caros, utilizados por 
ingenieros y científicos en muchos campos. Pero no olvide que el pro- 
grama es también un ejemplo de una técnica fácilmente accesible, 
aplicada al Spectrum. Los libros están a nuestro alcance, llenos de 
potentes ideas que nos ayudarán a liberar la potencia del microor- 
denador. 
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Posibles mejoras 


1) ¿Podría combinar este programa con las técnicas de dibujo 
de figuras que vimos en el programa Tangram, permitiendo 
especificar en A$ las direcciones iniciales de algunas figuras 
frecuentes? 

2) El programa sería más flexible si se pudieran visualizar textos 
como parte del dibujo total. Una vez más, las coordenadas 
tendrían que poderse guardar en Af$. 
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4. Educación fácil. El Spectrum 
como tutor doméstico 


En este capítulo veremos tres programas que permiten al Spec- 
trum realizar su contribución en el campo de la educación doméstica. 
El primero de ellos, Respuesta Múltiple, es un programa diseñado 
para permitir que el usuario entre una serie de preguntas y respues- 
tas, que serán utilizadas como base para la generación de tests alea- 
torios de respuesta múltiple. El segundo programa, Aprender a Leer, 
es un programa para enseñar a leer a los niños, y por último Geo- 
grafía, que ayuda a aprender la situación de las ciudades de cualquier 
país del mundo que hayan sido entradas en el programa. 

El objetivo de estos programas es darle alguna idea de lo que 
puede conseguirse en este campo sin demasiado esfuerzo. No obs- 
tante, a menos que pretenda comprar un conjunto de programas en 
cassette, con programas especializados dedicados a temas indivi- 
duales y que incluyen sus propios archivos de datos, la utilidad de 
estos programas educacionales dependerá siempre de la cantidad de 
trabajo que esté dispuesto a realizar al entrar los datos en ellos. El 
mejor programa de generación de preguntas de respuesta múltiple del 
mundo no es de mucha utilidad si en un determinado momento no 
está usted dispuesto a sentarse y entrar un número de preguntas su- 
ficientes para que sea interesante. 

Si está dispuesto a darles a estos programas los datos necesa- 
rios con los que trabajar, muchas veces pueden obtener un éxito es- 
pectacular por el simple motivo de que funcionan a la velocidad mar- 
cada por el alumno, no muestran signos de impaciencia, no dan nin- 
gún tipo de penalización por el hecho de hacer trampas o de fallar y 
están siempre dispuestos para un nuevo intento a cualquier hora del 
día o de la noche. 


4.1 Respuesta múltiple 


Este programa es uno de mis favoritos. Cuando lo escribí quedé 
satisfecho por el hecho de que constituía un trabajo competente que 
haría la tarea para la que estaba diseñado. Hasta que entré un grupo 
de preguntas y respuestas y lo probé con otras personas, no me di 
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cuenta que tales programas hacían del aprendizaje algo tan apasio- 
nante como cualquier otro juego. 

Al igual que el programa Archivo, éste tiene también propiedades 
de camaleón, y está diseñado para cambiar su color para adecuarse 
a sus necesidades. En un momento determinado quizá desee que sea 
un profesor de francés, ofreciendo una variedad de palabras en fran- 
cés como posibles traducciones de una palabra en español. Más tarde 
quizá lo convierta en un programa que plantee complejas preguntas 
sobre la historia del siglo XIX, dando una serie de fechas como po- 
sibles respuestas. El objetivo del programa es permitirle que pueda 
hacer todo esto y mucho más sin tener que hacer cambios en el propio 
programa. 

El programa también es interesante por la forma en que guarda 
los datos. El programa Archivo, como recordará, guardaba los datos 
en un único archivo bastante largo, controlando cada registro me- 
diante una tabla de punteros. El programa de Respuesta Múltiple 
guarda sus datos en una serie de tablas bidimensionales, es decir, 
que AS (100,10) proporcionaría 1000 espacios de 1f caracteres de 
largo. Esto tiene la desventaja de que es imposible utilizar al máximo 
el espacio, como se indicó anteriormente. Sin embargo, en este caso 
el usuario puede elegir la forma en que serán guardados los elemen- 
tos, y si un elemento parece que va a ser demasiado largo en com- 
paración con el resto, entonces puede abreviarse en lugar de au- 
mentar el tamaño de la tabla en donde deben colocarse. Si el pro- 
blema del ahorro de espacio no es crucial, entonces las tablas bidi- 
mensionales tienen la ventaja de que cada elemento tiene un lugar 
claramente identificable dentro del archivo, lo que hace más fácil la 
búsqueda de los datos. 

Sin embargo, todavía queda un problema, y es que una tabla 
puede ser un inconveniente a la hora de borrar o insertar elementos 
en mitad de la misma, ya que todos los elementos sucesivos deberán 
desplazarse un lugar para cubrir el hueco resultante o para dejar es- 
pacio para el nuevo registro. Ya que no existe una orden que mueva 
un bloque completo dentro de una tabla, esto tendrá que hacerse ele- 
mento a elemento, lo que es un proceso que necesita cierto tiempo. 

Podemos resolver el problema que se refiere a la inserción de 
elementos no colocando los nuevos elementos en mitad de la tabla, 
en su lugar correcto, si no insertándolos en el primer espacio dispo- 
nible y dejando que una tabla de punteros se encargue de decirnos 
el orden en que deben tomarse los elementos. 

El borrado no es tan sencillo. El programa no será de demasiada 
utilidad si no se pueden eliminar los elementos que sean incorrectos 
y, se mire como se mire, si se elimina el primer elemento de la tabla 
quedará una línea vacía. Muy pronto, si se necesita borrar elementos 
con cierta regularidad, terminará teniendo una tabla llena de espacios 
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vacíos y sin espacio al final para colocar los nuevos elementos de 
datos. 

La solución adoptada aquí es mantener un registro de la posición 
de cualquier elemento que haya sido borrado del archivo y utilizar este 
registro como indicador de dónde deben colocarse los nuevos regis- 
tros. En otras palabras, si el último elemento borrado estaba en la 
posición uno, el siguiente elemento que vamos a entrar se colocará 
en la posición uno. Si, como a menudo sucederá, no quedan agujeros 
en la tabla, el programa colocará el nuevo elemento al final de los 
elementos actuales. Es sencillo de comprender cuando se capta la 
idea, y, como verá cuando entre el programa, no es difícil en la prác- 
tica. 


MODULO 4.1.1 

1000>REN EXILE AAAAAAAAEAZ 
1010 REM HENO 

1020 REN. REFERIA 
10:30 BORDER. 1: IMR Q: PAPER 2: E 
0 HU JRRINT E 
1040 PRINT “*"ORDENES DISPONIBLES 
1050 PRINT “"2d)INICIALIZAR" 

10569 PRINT *"21ENTRAR NUEVOS ELE 
MENTOS"' 

1070 PRINT *'"35) BUSCAR-yELIMINAR" 
1050 PRINT -"L)ENTRAR MUEUVOS TIP 
OS" 

10390 PRINT 75) GENERAR PREGUNTAS 
1100 PRIMT “*"SI)IUER O PONER A CER 


O PUNTUACION" 
1110 PRINT **"7?1FINALIZAR" 


1120 INPUT "Cual requiere?" ;Zó5 
1140 E2LS 

1150 IF Z%="1" THEN GO SUB 1270 
1160 IF Z%="2"” THEN G SuUb56b 1500 
1170 IF Z%=":3" THEN GO SUE 2460 
11:30 IF Z%="4" THEN GO SUE 1670 
1120 IF Z%="5" THEN GO SUB 285850 
1200 IF Z2%="5" THEN GO SU5 338580 
1210 IF Z%="7?" THEN GO TO 12406 


o La 
12:30 60 TO 1000 


1240 PRINT AT TP, "ES El 
1250 INPUT “Ha entrado nueva inf 
ro rl que quiera aguardar? (3+ 
dy; 

1250 IF Q%$="S3" THEN SAVE "“REMULT 
“": BEEP 1.40: PRIMT AT 12,40; "REE 
O6BIME, A — CONTIMUAC ION “"“ENTER" E 
PARA UERIFICAR.": PAUSE 0: UERIF 
Y "REMÚULT": PRINT ““UERIFICADO" 


1255 STOP 


Este es un módulo estándar de menú. 
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MODULO 4.1.2 


127D>REM FREE 
1230 REM INICIALIZAR 

1230 REM RAEE 
12395 DIM DO$1(321 

1300 DIM C412,20) 

1310 LET I$5=CHRAS 0+CHRAS 14+CHR4 0 
+CHRG 2 

1320 DIM (2) 

1330 LET L-35=" BRENES 


1340 LET ELEMENTOS = 
1330 LET PsS=" 

1360 LET ELEMFIN=:3 
1370 LET BIEN=0 
1350 LET GOTOT=0 


1390_INK 1: PRINT * PR 
FPESORE 


o AS 
TA 


PRINT 


1430 INPUT 
1490 PRIMT 
1590 PRINT. 


S 
520 
530 
¿De 
550 CLS 
560 
570 
550 


Rp 


POMPOD0HO0O00O 
4 5 + UUZ-- 


dd HARARARAR TO PARAR 


DU=rD==-=-!| Ho 
O- 1PrP-- JPme : 


Pp 

q 

Tu 

Q 

O 

H 

pa 
O00ADIODOO 6 Nr 


1670 PRINMT "(AREA 
GN AND CTIPOS> 


R 
1000 PRINTS“ cr ze PP 


1720 INPUT 05% 

5 My ig | 7. A E pl THEN RETURN 
1740 LET DCTIPOS+1)=05 

1750 PRINT TIPOS+1;") "¡DS% (TIPOS 


55 LET TIPOS=TIPOS+1 
"60 IF TIPOS<10 THEN GO TO 1720 
¿0 PRINT “"SOLO SE PERMITEN 10 


50 PRINT ““Pulsar una tecla pa 
continuar.” 

17355 PAUSE 0 

1730 RETURN 


Ju a 
(0H : 
7 : 
MN] 
Úl 
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Este módulo inicializa las variables y redimensiona las tablas para 
adecuarlas a nuevas aplicaciones del programa. 


Comentario 


Líneas 1390-1580. Los datos se guardan en el programa con los 
títulos de preguntas, respuestas y tipos, siendo el usuario quien define 
los nombres que se dan a cada uno de ellos. Si el examen va a tener 
la forma de una palabra en español acompañada de cinco posibles 
traducciones en francés, se podría entrar «Francés» como respuesta 
de «nombre de la respuesta» y «España» como respuesta de «nom- 
bre de las preguntas». También tendrá que decidir la longitud máxima 
de las preguntas y de las respuestas para cada aplicación determi- 
nada. 

Líneas 1590-1624. Las dos tablas principales en las que se guar- 
darán los datos (AfS=respuestas, B$=preguntas) se redimensionan 
para que ocupen la totalidad del espacio de memoria disponible, in- 
dependientemente de la longitud de las líneas de cada una. Cuanto 
más cortos sean los elementos más líneas habrá. 

Líneas 165-179. A cada elemento se le puede dar un tipo, por 
ejemplo nombre, verbo, etc. en el caso de un examen de Francés. 
Estos tipos pueden utilizarse para después hacer el examen más es- 
tricto. Se pueden especificar hasta 1 tipos y sus nombres se guar- 
darán en Df$. La tabla D se utilizará para guardar cuántos elementos 
de cada tipo hay y dónde están agrupados dentro del archivo. Ob- 
sérvese que se puede prescindir de los tipos entrando ZZZ antes de 
entrar cualquier nombre de tipo. En este caso el programa ya no hará 
ninguna referencia a los tipos. 


Comprobación del módulo 4.1.2 


Cuando se ejecute, este módulo deberá pedir títulos y tipos. 


MODULO 4.1.3 


1500>REM REX 
1510 REM ENTRACA DE ' NUEVOS 


ELEMENTOS 
1520 REM XIX AAA AAA AAA 
15330 PRINT *” NUEUCOS ELEM 


EMNTO=E 

1540 PRINT PAPER 6; "CA4(1) 

1550 INPUT F5s 

18560 1P ELEMENTOS <302 THEN G9.- TO 
1590 

1370 PRINT ““NO HAY SITIO PARA M 
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AS ELEMENTOS." 
1550 GO TO 2130 
15390 IF Fs(1 TO 3)=<="22Z 
TO 2130 

1900 PRINT INUERSE 1 
1910 PRINT PAPER 6,“ 
13920 INPUT G% 

1330 PRINT INUERSE 
1940 IF C51,11<> 


1950 LET T=0 

1350 60 TO 2040 

1970 PRINT *"TIPOS:”“* 

1950 FOR I=1 TO TIPOS 

13309 PRINT TI;") "¡DS$(tlI) 

2000 NEXT I 

2010 INPUT T 

2059 PRINT *"TIPO SELECIONADO: *”; 


THEN GO 


$ 
HEN 60 TO 


DHALCT) 

EL INPUT "30n correctos? (S.-N) 
A 

2060 COLS 

207 IF 0%$:<>"S5" THEN GO TO 15530 

2975, IF Ti>0 THEM LET Dic1,T)=05(1 
, + 

2050 LET F%4=CHRS% T+F5 

2090 60 SUB 2190 

2100 GO SUB 2330 

2110 LET ELEMENTOS=ELEMENTOS+1 

2120 60 TO 1500 

2130 LET TOTAL=2 

2140 FOR I=1 TO 10 

2150 LET Di2, 11 =TOTAL 

2160 LET TOTAÁL=TOTAL+D11,I) 

2170 NEXT I 

2150 RETURN 


Este módulo acepta nuevas entradas con los títulos y tipos es- 
pecificados en el módulo anterior. 


Comentario 


Línea 1864. C2 es el número de líneas de la tabla principal. 

Línea 1946. Al usuario únicamente se le pide que especifique un 
tipo, si existe al menos un nombre de tipo principal guardado en D$. 

Línea 248f. El tipo —un Q si no se han especificado tipos— se 
añade al principio de la respuesta en forma de un único carácter in- 
dicador. 

Líneas 2130-2174. Este bucle transfiere el total acumulativo de 
las sumas de la primera columna de la tabla D, es decir, los números 
de elementos de cada tipo, a la segunda columna de la misma tabla. 
Ya que los elementos están guardados por orden según el tipo, con 
esto se guardará efectivamente la dirección inicial de cada grupo con 
el mismo tipo, en la segunda columna. 
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Comprobación del módulo 4.1.3 


El programa deberá aceptar la entrada de un elemento, aunque 
no podrá colocarse en la tabla. 


MODULO 4.1.4 


O- Zi Cox 
+ lok 
e E 


(3 

E 

an 

O 

m 

1 
Dia Tio Do 
Zi Co 


1 TO 0 STEP -1 


mm+20> Moe Do Do 
7 


NTOS -1 THEN LEFT -3 


> 
pa 


AL 
)]>FS THEN LET S=3-1 


UN Pr TTD Jm 


=1H1MBs 1110100 


NranD 


a 
[Ea] 
Y IF ASC 
da RETURN 


Este módulo determina la posición correcta de los nuevos ele- 
mentos según el orden existente y es equivalente al módulo de bús- 
queda de Archivo. El método utilizado es también la búsqueda binaria. 


MODULO 4.1.5 


¡dO REM IMSERCION 


2550 REM EXI AAA 

25350 IF LEN P=4 THEN 60 TO 2400 

2570 LET LUGAR=256%*C0DE P51(3) +CO 

DE PH) 

25350 LET PS$=P$4t TO 2)+P5(5S TO ) 

25330 60 TO 2420 

2400 LET LUGAR=ELEMF IN 

2410 LET ELEMFIN=ELEMF IN+1 

2420 LET ASILUGAR)<F5 

2430 LET BS%(LUGAR)I)=G5% 

2440 _LET Igó5=I$!( TO 2%3) +2HR% INT 
(LUGAR -256) +CHRA% INT (LUGAR-256 

FINT (LUGAR -236)) +15 (2%5+1 TO ) 

2450 RETURN 


El nuevo elemento se inserta en el primer espacio disponible y 
su dirección se guarda en la tabla 1$. 
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Comentario 


Líneas 2364-2390). P$ guarda las direcciones de los huecos en 
la tabla. Cuando no hay tales huecos la longitud de esta variable al- 
fanumérica es 4; el mínimo para evitar que la línea 2384 nos dé un 
mensaje de error. Siempre que P$ sea mayor que cuatro caracteres, 
el segundo par se convierte en una dirección. 

Líneas 24//-241(. Si no hay huecos, que vendrían indicados por 
P$, el nuevo elemento se coloca al final del archivo, en el primer es- 
pacio vacío. 

Líneas 242/-244f. La respuesta y la pregunta, F$ y G$, se co- 
locan en la línea LUGAR de las tablas A$ y B$ respectivamente. Ob- 
sérvese que LUGAR contiene la dirección actual del elemento en el 
archivo, y no su posición correcta por orden, que está guardada en la 
variable S. Esta posición se determina mediante la búsqueda binaria. 
Ya que el tipo se ha colocado al principio de la respuesta, los ele- 
mentos están ordenados principalmente con respecto al tipo. 


Comprobación del módulo 4.1.5 


Entrar una serie de elementos del mismo tipo: deben entrarse en 
orden alfabético invertido, es decir, e,d,c,b,a. Los elementos deberán 
colocarse en las tablas en el orden en que se han entrado. Ahorá 
examine l$. Deberá ser capaz de convertir los pares de caracteres en 
punteros que señalen las posiciones 5,4,3,2,1 o de cuantos elementos 
haya entrado en orden alfabético invertido. Recuerde que los ele- 
mentos se clasifican con respecto a las respuestas. 


MODULO 4.1.6 


2450 > ¿REÍA FEXXEXZJ 
2470 REM ELUSOLED 
2430 REM 22% 2%% 
24535 IF ELEMENTOS 
24399 PRIMT  * 
2439S PRINWNT AT 21. 


2500 PRINT AT 3,0; "ORDENES DISPO 
NIGLES: 

2510 PRINT “">""ENTER"" SIGUIENT 
E ELEMENTO" 
2520 PRINT *>NUMERO POSITIVO O N 
EGRATIVO PARA MOUER PFUNTERD” 


2530 PRINT “">“"DDD"" ELIMINAR EL 
EMENTO” 
2540 PRINT ">""ZZ2Z2"" ABANCONAR F 
UNCION"”" 


2550 PRINT “L5% 
2550 LET 3=2 
2600 LET P=FN AC) 
2610 PRINT AT 12,0; "REGISTRO No. 
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“¡5-1 


2620 PRINT “ASIP,2 TO ) 
2630 PRINT B35(P)3 
2640 IF COCE (A$(P,1))=0 THEN GO 


TO 2650 

2650 PRINT “C%(CODE ASIF,1)31 
2660 INPUT 35% 

2670 IF S%4="DCC" THEN GO SUB 275 
a: RETLREN 

2690 1F S%4="222" THEN RETURN 
2700 IF S%<>"“" THEN GO TO 2740 
2710 LET 3=3+1 

27120 IF 5=ELEMENTOS THEN RETURN 
2730 60 TO 2600 

740 LET 3==3+UAL =35% 

2750 IF S>ELEMENTOS THEN RETURN 
2760 IF S:<2 THEN LET S=2 

27708 GO TO 26400 


El propósito de este módulo es permitir al usuario recorrer los 
registros y borrar los no deseados. Este módulo es más sencillo que 
el módulo de búsqueda del programa Archivo, pero tiene la posibilidad 
de visualizar el siguiente registro o saltarse un número especificado 


de elementos. En realidad no busca. 


MODULO 4.1.7 

SOD>REM RARA 
2790 REM ELIMINACIOÓNES 

23500 REM FREE AAA 
e2es10 LET P=<FN A() 

2515 LET D(21,CODE AS$(P,1))=D(1,C 
ODE AS1(P,1)3)3-1 

2520 LET ASIP)="" 

2550 LET EH5 IP) ="" 

2540 LET I5=I$( TO 2%5-2) +19 (235 
+1 TO ) 

2550 LET ELEMENTOS =<ELEMENTOS - 1 
2550 LET PS$=P$t TO 2)4+CHR% INT ( 
P-256) +CHRS$ INT (P-256x%*INT (Pr2S5 
6))+P$(3 TO ) 

25553 60 SUB 2130 

2570 RETURN 


Este módulo elimina elementos del archivo y guarda la dirección 


del hueco resultante en P$. 


Comentario 


Líneas 2814-2860. Ya que la variable S está señalando al ele- 
mento que se está visualizando, se utiliza para extraer una dirección 
de la tabla de punteros, I$, y las líneas indicadas por esta dirección 
en A$ y B$ quedan vacías. La dirección se elimina de l$ y se coloca 


en P$. 
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Línea 2865. Las direcciones iniciales de los distintos grupos de 


tipos de reajustan. 


Comprobación del módulo 4.1.7 


Borre un elemento y compruebe que el resto de los datos siguen 


estando en el orden correcto. 


MODULO 4.1.8 

A ER 
2590 REM PREGUNTAS ALEATORIAS 
2900 REM FEAR 

2910 LET PREGUNMNTA=0 

23920 PRINT ” TA=i 
295350 PRINT “*"DESEA QUE LAs RESPU 
ESTAS POS LEE SE DERIVEN 
DE UN MISMO TIPO” SN)" 

2940 INPUT 0%: CLS 

so IF DO%$="S3" THEN LET PREGUNTA 
2970 DIM 090 (51 

2950 LET Q1=INT (RND* (ELEMENTOS -— 
2) +2 

292320 LET 3=01 

3000 LET F=FN A() 

35010 LET GO2=INT (RND*S+1) 

3020 LET 0102) =P 

35030 LET GBASE=2 

3040 LET NUMERODO=ELEMENTOS -2 

3045 IF CODE (A$(P,1))=0 THEN GO 
TO 3503530 


3059 IF PREGUNTA=0_0OR D(1,COCE A 
$ [P,11)<5 THEN GO TO 30350 

3060 LET BASE=CI2,CODE ASI[PF,1)) 
3070 LET NUMERO=C?(1,CODE ASP, 1) 


35050 FOR I=1 TO S 
35090 IF I=02 THEN GO TO 3170 
3100 LET S3S=INT” (RNDEHXNUMERO+BASE) 


3110 LET P=FM A() 

3120 IF P=0(02) THEN 60 TO 3100 
35130 FOR J=1 TO I 

3140 IF P=0(0) THEN GO TO 3100 
3150 MEXT 

3160 LET Qí(I)=<=P 

31709 NEXT I 

3130 PRINT AT 1,0;C%4(2) 

3190 PRINT 6% (0 (02) ) 

3200 PRINT “L5””7 

3205 PRINT C5(f1) 

3210 FOR I=1 TO >S 

3220 PRINT 1I;") "¡;As$(Q(13),2 TO ) 
3230 NEXT 1 

3240 PRINT * "CUAL RESPUESTA o 
E CORRECTA?" ”" “ENTRE EL NUMERO ; 
3250 LET GTOT=0TOT+1 

32560_ INPUT RESPUESTA: PRIMT e. 
ESPUESTA 

5270 IF RESPUESTA=02 THEN GO TO 
355300 

3250 PRINT “*" INCORRECTO. LA _ RESP 
UESTA CORRECTA ERA: MRE 
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ES 

3290 60 TO 3320 

3300 FOR I=-14 TO 20 

3302 PRINT AT 1,0;0% 

3304 NEXT II 

3306 FLASH 1: PRIMT AT S5+RESPUES 
TA.,3; A5 IO (RESPUESTA) ,2 TO );: PRI 


NT AT 16,10; "CORRECTO": PAUSE S0 
: FLASH O 

35310 LET BIEN=B5IEN+1 

3520 PRINT e den nueva preg 
unta a “Y“*vZZZ""”" para abandonar f 
Uunciona.” 

35340 INPUT Ds 

3350 CLS 

35360 IF DO%$=" 222" THEN RETURN 
3570 GO TO 23970 


Este módulo establece el examen de respuesta múltiple basán- 
dose en los elementos guardados. 


Comentario 


Líneas 2880-3004. Al usuario se le da la opción de poder elegir 
si las cinco respuestas a cada pregunta deben.sacarse de la totalidad 
del archivo o únicamente de entre elementos del mismo tipo. 

Líneas 2980-3004. Se elige aleatoriamente un elemento del ar- 
chivo. 

Líneas 3010-3020. Las direcciones de las cinco respuestas se 
guardarán en la tabla Q. La dirección de la respuesta correcta se co- 
loca en una posición aleatoria en esta tabla. 

Líneas 3030-3174. Cuando se crea un número aleatorio dentro 
de ciertos límites es necesario saber dos cosas: primeramente la base 
sobre la cual el número se va a construir, y en segundo lugar el rango 
por encima de esta base dentro del cual debe caer el número alea- 
torio. La función RND del Spectrum produce un valor seudoaleatorio 
entre Y y 1, por lo que un número que tenga la forma de X+INT 
(Y*RND) será capaz de variar entre X y X4+Y—1. El valor mínimo que 
puede tomar Y*RND puede ser menor que uno, por lo que 
INT(Y*RND) sería igual a cero. El máximo valor de INT(Y*RND) es 
Y—1 ya que RND nunca puede ser igual a 1. 

En esta sección del programa deberá generarse un cierto número. 
de direcciones aleatorias y esto se conseguirá partiendo de las varia- 
bles BASE y NUMERO. Si el usuario ha especificado que las res- 
puestas deben elegirse de entre la totalidad del archivo en lugar de 
entre las de un tipo específico, la BASE se pone a 2, el primer ele- 
mento utilizable después del indicador de principio del archivo. NU- 
MERO se coloca igual al número real de elementos, es decir, el nú- 
mero de elementos menos los dos marcadores de principio y final del 
archivo. 
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Si el usuario ha especificado únicamente respuestas del mismo 
tipo, la BASE se pone igual a la primera dirección del grupo sobre el 
que debe elegirse aleatoriamente y número se pone igual al número 
de elementos dentro de este grupo. Esto se hace únicamente si exis- 
ten cinco o más elementos dentro del grupo en cuestión. La respuesta 
elegida se compara con la respuesta adicional para ver que no sea 
la misma y después con el resto de las respuestas elegidas aleato- 
riamente. Si la nueva elección aleatoria no es una duplicación, enton- 
ces su dirección se coloca en Q, en una posición aleatoria. 

Líneas 3180-3230. La pregunta se visualiza en la parte superior 
de la pantalla; la respuesta se visualiza en la parte inferior. 


Comprobación del módulo 4.1.8 


Entre algunas preguntas y respuestas y examínese usted mismo. 


MODULO 4.1.9 


ISSO>REN FAX XEEAAAAAAAIEAAAAAIAAEAA 
33390 REM PUNTUACION 

3400 REM XXX XXXAIEAEA AAA 
3410 PRINT ” PUNTUACION 


3420 IF OTOT<>0 THEN GO TO 3470 


3430 PRINT *-“-“-* AUN NO HAY 
PUNTUACION.” 
3440 PRINT “Cualquier tecla par 


3 continuar.” 

3450 PARUSE UY 

3450 RETURN 

3470 PRINT “*"“TOTAL DE PREGUNTAS: 
"¡ QTOT 

3450 PRINT * "CORRECTAS: "¡BIEN 

3490 PRINT "EVALUACION: "; INT (C(d 

65 IEN-O0TOT 5) - (OTOT2%.58))x100);" P 

ER CIENTO.” 

3500 PRINT “*"QUIERE PONER A CERO 
LA PUNTUACION? (SN) *” 
3510 INPUT 05 

3520 IF 0%<>"S" THEN RETURN 

3530 LET OTOT=0 

3540 LET GIEN=0 

3550 RETURN 


Este módulo está diseñado para visualizar la puntuación hasta el 
momento y borrarla bajo demanda. 
Comentario 


Línea 3494). Esta línea es un intento de dar una evaluación ade- 
cuada de la puntuación, teniendo en cuenta el hecho de que la pul- 
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sación aleatoria de las teclas daría como resultado una puntuación 
del 20% como promedio. Este 20% hipotético se resta tanto del nú- 
mero total de preguntas como de las respuestas correctas y la eva- 
luación se hace con el resto. 


Comprobación del módulo 4.1.9 


Si previamente ha comprobado el módulo 8, las variables ya ha- 
brán sido establecidas. Al llamar a este módulo se le dará una pun- 
tuación y una evaluación. 


Resumen 


Este es un programa bastante potente, pero recuerde que esto 
tan sólo podrá confirmarlo si entra suficientes datos para que sea in- 
teresante. Además de su utilización como herramienta educacional, 
también es una demostración sencilla de un método para acelerar el 
acceso a tablas, eliminando la necesidad de desplazar el contenido 
del archivo cada vez que se realiza el borrado de un registro. 

El núcleo del programa podría aplicarse fácilmente a una gran 
variedad de utilizaciones en las que la velocidad de acceso a los ele- 
mentos sea más importante que el ahorrar hasta el último espacio de 
memoria. 


Posibles mejoras 


1) El programa tal como está no da ninguna recompensa por las 
respuestas correctas o por buenas puntuaciones. ¿Podría pro- 
gramar algún tipo de recompensa visual en el punto ade- 
cuado? 

2) La programación es una tarea más bien solitaria, pero utili- 
zando un programa como éste se podría mejorar mediante la 
cooperación con otras personas. Convenza a alguien para 
que se compre este libro y póngalo a construir un archivo so- 
bre física, mientras que usted empieza con el de historia. 

3) ¿Podría añadir funciones de búsqueda más potentes que se 
basasen en la función de búsqueda del programa Archivo? 
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4.2 Palabras 


La moraleja del programa anterior es que cuando se tiene un mé- 
todo que funciona correctamente, hay que adaptarlo para que realice 
varias tareas, aunque se parezca sospechosamente a otros progra- 
mas que haya escrito antes. Este programa es una copia del de Res- 
puesta Múltiple cuya única diferencia es que las preguntas están en 
forma de dibujos. Pretendió ser un programa para enseñar a leer, pero 
naturalmente es aplicable a cualquier otro tema donde todo tenga que 
presentarse visualmente y deban realizarse preguntas. 

La capacidad del programa es relativamente limitada ya que se 
ha reservado un espacio de 4H) caracteres para cada pequeño dibujo. 
Los dibujos son los que se han generado con el programa Artista. Esto 
significa que la cadena de 4M/ caracteres representa la versión com- 
pactada de algo que originalmente tenía un máximo de unos 12f ca- 
racteres. El dibujo debe utilizar sólo la mitad inferior de la pantalla. 


MODULO 4.2.1 


1IDOD>REM XXXIII 
1010 REM MEL! 

1020 REM XXXIII 
1030 BORDER 1: INK 0: PAPER 6: C 


1040 PRINT *” LA: 
1050 PRINT “* "ORDENES DISPONIBLES 


1060 PRINT *"1) INICIALIZAR" 
1070 PRINT *"21ENTRACA DE NUEVOS 
ELEMENTOS" 


od PRINT “31 BUSQUEDA-ELTMIMNAC 
10390 PRINT “*"S)GENERAR PREGUNTAS 
1100 PRINT “""S)UER O PONER A CER 
O PUNTUACION" 

1110 PRINT *"P)FINALIZAR" 

1120 INPUT "Cual requiere?”";zZz5 
1139 CLS 

1140 IF 2%="1'" THEN GO SUB 1260 
1150 1F Z%="2" THEN 60 SUB 1390 
11609 IF Z%="3" THEN GO SUE 1650 
1170 IF Z2%="5" THEN GO SUE 2010 
1130 IF Z%="6" THEN GO SUB 2340 
11399 IF Z%=""" THEN GO TO 1220 


1210 GO TO 10009 
1220 PRINT AT 7,12; “ma 
12:30 INPUT "Ha ¿ntrado 3Llguna in 


Formacion nueva que desee quar 
dar? (S:N1";0% 

1240 IF O$="3" THEN SAUE "PALABR 
AS": PRINT AT 10,0," "REBGOBGINE, FU 
LSE LUEGO UNA TECLA PARA UERIFIC 
AR.": PAUSE 0: VERIFY "PALABRAS 


1250 S3TOP 


Este es un módulo estándar de menú. 
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MODULO 4.2.2 


1260D>REM Fri AAA 
1270 REM INICIALIZAR 

1250 REM RH XIFHFFEEFARERARESR 
123909 DIM 0O5S (32) 

1300 LET L$5="BNNNN 


1310 LET ELEMENTOS=0 

1320 LET I%= 

1330 LET ELEMFIN=1 

15340 LET GBIEN=09 

1550 LET GOTOT=0 

1350 CIM A$1(50,15): DIM B$(50,40 
0): DIM C4(15) 

1370 DIM 6(100) 

1350 RETURN 


Este módulo contiene las variables del programa. Las tablas se 
utilizan para guardar la cadena de caracteres compactada y la palabra 
asociada. 


MODULO 4.2.3 

S2620D>REM FX 

2630 REM MOSTRAR TEXTOS 
EMPAGQGUETACOS 

2640 REM iii AAA AAA AAA 

2650 BORDER 21: PAPER 7: CLS : PR 

INT AT 1,1;: LET PANTALLA=0: LET 


2660 IF P% (CONTADOR) =<CHR%S% 255 TH 
EN LET CONTADOR=CONTACOR+1: IF P 
$ [CONTADOR <>CHR% 0 THEN PRINT O 
$( TO CODE P% (CONTACOR))3;: LET P 
ANTALLA=PANTALLA+CODE P%(CONTACO 
R1: PRINT *” * ANC FANTALLA-<30=I1I 
NT —(PANTALLA-30);: LET CONTADOR= 
CONTADOR+1: IF CONTADOR<=LEN PS 
THEN 60 TO 2560 
2670 IF CONTADOR>LEN PS THEN GO 
TO 2710 
2630 IF P% (CONTACOR)=<CHRA% O THEN 
LET CONTACOR=CONTACOR+1 
2630 LET PANTALLA=PANTALLA+1: IM 


VERSE COCE P%(CONTADOR+2): PRINT 
PP (CONTADOR); : PORKE.” (23296-32%1( 

PEER 23689) -PEEKR 236585+32) ¿CODE 
PP (CONTADCOR+1): INVERSE 0: IF PA 
WNTALLA-30= INT (PANTALLA-30) THEN 
. RINT a 


«qe CET CONTADOR=CONTADOR+3: 1F 
"CONTADOR <=LEN P$ THEN GO TO 2566 


2er10 PAPER 7: INK 1: RETURN 


Este módulo se ha sacado directamente del programa Artista y 
vuelve a visualizar la cadena compactada. 
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MODULO 4.2.4 


1ISGO>REM FIX 
1570 REM INSERCION 

155350 REM XXXIII AAA 
1520 IF LEN Ig5-=4 THEN GO TO 1630 
1600 LET LUGAR=256xCODE 1%(3)+C0 


1610.) LET ado TO 21+15[(S TO ) 


1630 LET LUGAR=ELEMF IN 

1640 LET ELEMFIN=ELEMF IN+1 

1650 LET AS(LUGAR)I =U45$ 

1650 LET ES (LUGAR) =P%: LET BG(LUS 
AR) =LEN P5 

1670 RETURN 


Este módulo tiene la misma estructura que el de inserción del 
programa anterior, excepto en que la variable que guarda los huecos 
de la tabla se llama 1$ y que la dirección del nuevo registro no se 
guarda en una tabla de punteros. Teniendo tan sólo 5/4 registros pa- 
rece innecesario el tener una compleja función de búsqueda para es- 
tablecer el orden correcto de los registros. 


MODULO 4.2.5 


13D REM RRA 
1400 REM ENTRADA CE NUEVOS 
ELEMENTOS 

1410 REM AN E E + 
1420 PRINT * 
NTO=SA 

14:30 INPUT “Hom 
cargar desde i 
LIRI" NS 


1450 GO _ SUE 2620 


$ 
a 
1470 1F 0O$:<>"S" THEN RETI 
1450 INPUT "Palabra asoc 
5te dibujo?" Ls 

1490 PRIMNT AT 21,0:;45s 
1500 INPUT "Es Ccórrecto? 18S.:N1"; 


1510 CLS : 1F O%="N" THEN 50 To 


13520 GO SUB 13580: LET ELEMENTOS = 
ELEMENTOS + 1 

15350 INPUT "Quiere entrar otro d 
ibujo”? (S-N)3";0% 

1540 IF O%5$="N" THEN RETURN 

1550 60 TO 1420 


Este módulo sirve para entrar el texto compactado que estaba 
guardado en cinta y que contiene el dibujo, lo visualiza, acepta la pa- 
labra que le corresponde y finalmente la guarda. 
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Comprobación del módulo 4.2.5 


Habiendo entrado varios módulos que ya le parecerán familiares, 
sin comprobar su funcionamiento, ahora está en situación de com- 
probar que el programa entrará las tablas guardadas en la cinta y que 
han sido creadas y guardadas utilizando el programa Artista, visuali- 
zar el dibujo que contienen y guardarlo todo en memoria. 


MODULO 4.2.6 


16SOD>REM XXXIII 
1690 REM BUSQUECA DE USUARIO 
1700 REM XFA 
1710 IF” ELEMENTOS=08 THEN RETURN 
1720 LET 3=1 


1730 IF B$1(3,1)=" " AND S3S<50 THE 
N LET 35=3+1: GO TO 1730 

1740 IF 5-50 AND B45(5,1)=" " THE 
N RETURN 

12730 CL3 DIM PSIiBIS)): LET Pg= 
64(S,1 TO 6(S)): GO SUB 2620: PR 
INT AT 21,0;A%(35) 

1760 PRINT AT 9,0,” E 
1770 PRINT *"ORDENESS DISPONIBLE 
S. 

17380 PRINT **">""ENTER"”"" UER SIG. 


ELEMENTO": 
1790 PRINT '">NUMERO POSITIVO O N 
EGRATIVO PARA MOUER PUNTERO” 


1509 PRINT *”>""DDD"" ELIMINAR EL 
EMENTO" 
1510 PRINT ">""2Z222"" ABANDONAR F 
UNCION" 


1520 PRINT “L5 
1330 INPUT 35 
1540 IF S$="02C0D" THEN GO SUB 1393 


0: RETURN 
1550 IF S%4="22Z22" THEN RETURN 


1560 IF S%<>"" THEN GO TO 1590 
1570 LET 3=3+1 

1550 60 TO 17530 

1530 LET S=S+UAL 3 

1900 IF S>=50 THEN RETURN 


1910 IF S3S:<1 THEN LET S=1 
1320 560 TO 17:30 


Como antes, ésta es una versión simplificada del módulo de bús- 
queda, que se ha tomado del programa anterior. Cuando se visualiza 
un registro determinado no busca como antes primeramente la direc- 
ción en la tabla de punteros, sino que empieza sencillamente en la 
línea 1 de la tabla principal y visualiza lo que hay allí, a menos que el 
primer carácter sea un espacio, en cuyo caso la línea está vacía y el 
módulo pasa a la línea siguiente. 
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Comprobación del módulo 4.2.6 


Ahora podrá recorrer y visualizar los registros guardados, avan- 
zando hacia adelante o hacia atrás. 


MODULO 4.2.7 

193SD>RENM AXE 
1940 REM ELTIMINMNACIOMES 

13950 REM XXXIII Z 
1960 LET AS51(3S)="" 

1970 LET B5(5)="" 

12950 LET ELEMENTOS <ELEMENTOS - 1 
1930 LET Ig%5=I$t TO 2)+CHR%$% INT ( 
5S-256) +¿CHRS INT (3S-256%*INT — (S,-25 
5)31+1%$(3 TO 

2000 RETURN 


Este módulo permite al usuario borrar registros y es una versión 
simplificada del módulo equivalente del programa anterior. 
Comprobación del módulo 4.2.7 


Ahora ya podrá borrar los registros que desee. 


MODULO 4.2.8 


2010>REM 
20209 REM 


nu 
a 
h 
a] 
Tr 
m 
4 
00T7+* Te 
ú CAMA Mo 
DA H-=0Q0+x0% 


ñ 

a) 
GU 
Gu 
HT 
NO 

D 

NH 
CUNA 


1 

S 
EN GO TO 2170 
(RNDFELEMENTOS+1) 
THEN GO TO 2110 


THEN GÓ TO 2110 


LONOn=0 R?=D+D 
-P=HWPO nm 


"PRRRRPRERR 
00 ON E A 
10656060600 

Z 

m 

X 

3 

E 


as 


Ss 
CIM— PIB (Q1)3: LET P$=565$(01 
a, 


200 FOR T= 1 TO'S: DIM TS$(32): L 
2210 PRINT INE 9; PAPER Y-TI;T56 


2220 NEXT 1 

2230 PRINT “*"CUAL EST" 

2240 LET OTOT=0STOT+1 

2250 INPUT C%: PRINT C%: IF CS%=A 
$ (01) THEN GO TO 2270 
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5535 PRINT 7" "MAL "¡AS (GQ13): GO TO 
5300 

2270 FOR 1=8 TO 10: LET Il=I-5S%1( 
I>7): PRINT AT 1,0; OUER 1; PAPE 
R T11;0%: NEXT I 

2230 FLASH 1: PRINT AT 2-1,1353;A 
$ (01): PRINT AT 10,10; "BIEN! ": P 
RUSE 200: FLASH 0 

2230 LET BIEN=BIEM+1 

2300 INPUT “""ENTER"" para nueva 
Pregunta 0 ""Zz2zZ"" para termina 
A $ 

2310 CLS3S 

25320 IF O%$="2Z222" OR Dh="zzzZ" THE 


N GO TO 2520 
253530 GO TO 2050 


Este módulo genera aleatoriamente las preguntas y las posibles 
respuestas. Es menos complejo que el módulo equivalente del pro- 
grama anterior ya que no están previstos los tipos de registros. 


Comentario 


Líneas 220-2280. Obsérvese como es posible conseguir que la 
presentación de las preguntas y la recompensa para una respuesta 
correcta, sean atractivas visualmente sin un gran esfuerzo. En estas 
líneas las variables del bucle se utilizan para seleccionar los colores 
de fondo y añadir un cierto interés a la pantalla. 


Comprobación del módulo 4.2.8 


Ahora el programa debe ser capaz de generar preguntas. 


MODULO 4.2.9 


2340>REM REEF EA 
2350 REM PUNTUACION 
2350 REM REFIERE AAA 


2370 PRINT ” PUNTLIAC TI 


2350 IF OTOT<>0 THEN GO TO 2430 

2390 PRINT “*-““-" RUN NO HAY 
PUNTUACION. *” 

2400 PRINT “Cualquier tecla par 
3 continuar.” 

2410 PAUSE 0 

2420 RETURN 

E * “TOTAL DE PREGUNTAS: 

2440 PRINT * "CORRECTAS: "¡BIEN 
2450 DEF FN AI3=<=INT  ((I(BIEN-GTOT 
¿5) - (OGTOT2%.5)) 100): PRINT “EUA 
LUACIOÓN: "¡;FN A(J);” POR CIENTO." 

24509 PRINT “DESEA PONERLA A CER 
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[S:N) " 

INPUT 05s 

IF 0%9$:<>%S35" THEN RETURN 
LET OTOT=0 

LET BIEN=0 

RETURN 


AN 


mp.) 
POC -j 
006085 


Este es el módulo de puntuación que se ha tomado del programa 
anterior, con una pequeña modificación. 


Comentario 


Línea 2450. La evaluación se efectúa mediante la función FN A (). 


Comprobación del módulo 4.2.9 


Ahora podrá pedir la puntuación desde el menú. 


ES2D>REN EXE 
2539 REM ADIOS 

2540 REN FEEL 
2550 CLS LET TI1=0: LET 12=1: P 
APER 3 

2560 FOR I=1 TO 100 

2570 LET I1=11+1-25% (1I11=24) 

2590 LET I2=124+1-53+ (I2=7) 

2590 POKE 23692,255: INK 12: PRI 
NT “TAB 11; "ADIOS!”; 

26009 NEXT Il: PRINMNT *“” LA PUNTUACI 


ÓN FUE “;FN AC) 
2610 INK 0: PAPER “2: STOP 


Este módulo visualiza una despedida del programa, ligeramente 
menos aburrida, y utiliza la función definida en el módulo de puntua- 
ción para dar una evaluación final. 


Comentario 


Línea 2594). Obsérvese la utilización de este POKE, que se utiliza 
para evitar el desplazamiento de las líneas y que se detiene una vez 
visualizadas 22 líneas. La dirección de memoria 23692 es utilizada 
por el Spectrum para guardar el número de líneas que deben per- 
manecer visualizadas antes de que se pida al usuario si debe conti- 
nuar el «scrolling» o desplazamiento de las líneas hacia arriba. 
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Comprobación del módulo 4.2.10 


Este módulo tan sólo puede llamarse desde el módulo que ge- 
nera las preguntas. 


Resumen 


Este, como antes, es un programa que requiere la realización pre- 
via de cierto trabajo si se quiere que sea de cierta utilidad, ya que los 
pequeños dibujos que utiliza necesitarán cierto tiempo para ser crea- 
dos. En la creación de estos dibujos es especialmente importante el 
prepararlos adecuadamente con anterioridad antes de sentarse a tra- 
bajar con el programa Artista. La utilización del papel cuadriculado 
puede ahorrar una gran cantidad de frustraciones cuando se intente 
crear los dibujos antes de entrarlos. Utilice papel cuadriculado para 
poder contar el número de caracteres del dibujo. Cualquier dibujo que 
tenga más de 10H o cuyos caracteres estén muy separados en la pan- 
talla es muy probable que no quepa en el espacio de 4 caracteres 
reservado para el texto compactado. Probablemente habrá observado 
que la parte del programa que administra el test está más bien se- 
parada de las otras funciones. Esto se hace así para que la persona 
adulta pueda empezar el test y dejarlo en manos de los niños sa- 
biendo que es muy poco probable que puedan reentrar el programa 
principal y crear problemas o hacer trampas. Antes de empezar el test 
probablemente sea mejor pulsar la tecla CAPS LOCK para que se- 
leccione las letras minúsculas, ya que los niños tienen tendencia a 
estar más familiarizados con las letras de este tipo. Para poder hacer 
esto, las palabras asociadas con cada dibujo también deben haberse 
entrado en minúsculas. 

Si no se tiene a mano ningún niño de la edad adecuada con el 
que practicar, entonces ¿por qué no diseñar algunas sencillas repre- 
sentaciones de símbolos eléctricos, y hacer que el programa genere 
algunos tests para identificar circuitos electrónicos sencillos. Como 
dije antes, si se tiene algo que funciona, adáptelo. 


Posibles mejoras 


1) Si realmente no se necesita un registro de la característica de 
inversión para cada carácter dentro del texto compactado, se 
podría o bien aumentar el número de dibujos que el programa 
puede guardar o aumentar su complejidad. 

2) Este es otro caso en que la cooperación con otros usuarios 
del Spectrum para intercambiar dibujos puede ahorrarle mu- 
chos esfuerzos. 
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-4.3 Geografía 


Este es un programa poco complicado que comprueba de forma 
efectiva sus conocimientos sobre geografía, o al menos la situación 
de las ciudades de una variedad de países. 

Para utilizar el programa tendrá que modificar el programa Artista 
dado anteriormente. La modificación consiste en añadir un módulo 
que coge la retícula de 2/*3 contenida en A$ (1) y la guarda en una 
cinta. Esta modificación se deja para que la realice usted y probable- 
mente elegirá o bien realizar una versión de Artista que únicamente 
cree y trabaje con una tabla A$(2M,30) y que no guarde las caracte- 
rísticas de color o cree un texto compactado, o bien añadir al pro- 
grama Artista existente un sencillo bucle como FOR |=1 TO 20:LET 
BS$(1)=A$(1,1):NEXT |, transfiera el contenido de A$(1) a otra tabla. 

En cualquier caso deberá obtener un programa que sea capaz 
de guardar un texto de 2/*3f, que contenga los caracteres de una 
pantalla. El siguiente paso es crear algunos dibujos que reproduzcan 
el perfil de un país y que lo guarde con el nombre del país que repre- 
senta. Es entonces cuando podemos coger el hilo de este programa. 


MODULO 4.3.1 


1000>REM REX 
1010 REM MENU) 

1020 REM EXHERERAAE AAA AAA AAA 
1030 PRINT aj 
1040 PRINT “"1)3CARGAR NUEVO PAIS 


1050 PRINT 7*"21)REGISTRAR NUEVAS 

CIUCADES" 

1060 PRINMT  7"'"S3) PREGUNTAS" 

1070 PRINT “4d ITINICIALIZAR" 

10530 PRINT 1“""S)FIMNALIZAR" 

1090 INPUT Z%: CLS : LET GTOTAL= 
0: LET MAL=090 

1100 IF Z%="1" THEN 560 SUB 12650 

10 IF *2" THEN GO SUB 1320 

*3'" THEN LET PARAIS=FWN 
1870: GO SUE 1510 

[a] *S5'* THEN GO TO 1160 

a *4" THEN 50 SUE 1190 

O CELS : GO TO 1000 

a GEOGRAFTIABN 

[Ea] 


4) 

O 
NNUNN 
440 CAR 


104001 


PRINT AT 10,10," 
INPUT *"Ha entrado nuevyos Ja 
que dese guardar? (SS: NI)" ;0%É: 
IF O%$="S5" THEN SAVE "GEOGRAFIA" 
: PRINT "Rebobine, luego ""ENTER 
2% para verificar": PAUSE QU: 
VERIFY "GEOGRAFIA" 
1189 STOP 


AerRrppereDep 
DRRRRR-PPe 
bi JONES PO 


Este es un módulo estándar de menú. 
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MODULO 4.3.2 


130>REM 
200 REM 


FEEFAEREAEREE 


fÚ 
. 
Q 
D 
m 
Z 


E 
ELREEFEREFENES 
a) 


000 

le 

m 

— 

1 AR o 
HO DH 


NT —(RNIDÍÑPARAISES+ 


$ a pp po ps pa ps 
A 


nm +ímn 
a) 
1 
m 
— 
a 


Las variables se inicializan aquí. 


Comentario 


Línea 1224. Los textos que contienen los países se guardan en 
la tabla B$. 
Línea 1246. Esta función elige aleatoriamente un país. 


MODULO 4.3.3 


1260>REM REALEZA 
1270 REM CARGAR HUEUO PAIS 
1250 REM EX EXAEEREA A EAAAAAAAAAAE 


12309 INPUT 

A CC ¿N:: TNPUT: “ARRANCAR CINT 
A, LUEGO ""ENTER""";0%S$: LOAD N5 
DATA ASI) 

1300 INPUT "NUMERO DE POSICION: " 
¿ LUGAR 

1310 LET PAISES<PAISES+1: FOR I= 
1 TO 20 LET 6G%5(LUGAR, TI) =ASCIT): 
NEXT I: RETURN 


Este módulo acepta la entrada desde la cinta de una tabla de 
24x34 con el nombre correspondiente del país y lo coloca en B$, en 
la posición decidida por el usuario. 


Comprobación del módulo 4.3.3 


Cargue un texto y colóquelo en B$: compruebe en modo directo 
que se ha guardado adecuadamente. 


MODULO 4.3.4 


iS dl RS 
1330 REM REGISTRAR CIUDADES 

1340 REN FEE 
1350 INPUT "NUMERO DE PARIS? "¿PA 
15 
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1560 PRINT FOR I=1 TO 20 PRIN 
T PAPER 3; INK 2;TAB 1;B5(FAIS,I 
J MEXT il LEFT x= LEFT Y=1 CET 
T%$="": GO TO 14530 

1370 PR INT OVER 1; PAPER 3; INK 
D¿¡AT X.Y Y;"x%x": PRUSE 2: PRINT QUE 
R 1, PÁPER Sj; INF O; AT SE 

1359 LET TS$=IMREVS: IF Tg%="" THE 


N GO TO 1370 
13590 IF T%<"5”" OR T%>"39” THEN GO 


1400 PRINT PAPER 3; INK 2;¿AT X,Y 

¿ BRLPRIS,) A, 

¿1410 LET xX=X+1(T%="6")-(Tg=" 7"): 

LET_ X=X+ (X<1)- (X>20) 

1420 LET YH (TE= 8 I-1(T4=" 5": 

LET Y=Y+ (Y<l1)- (Y>30) 

1439 PRINT INE a; AT D,O0; "X=" ¿Xx 
Y=" Y" eg" PARAR": IF T%x<> 

"89 THEN GO TO. 1370 

1440 PRINT AT 3,0; "LAS SENTENCIA 

S DATA TENDRAN EL SIGUIENTE ASP 


ECTO: ** 5000+PAIS:<100;" DATA Nn.,*"” 
ELPAIS""""5000+PAIS+*100+1;" DÁTA 
“*"LACIUDAD”"".6,12" 


1450 PRINT “*"“"PONER NOMEGRE DE CIU) 
DAD, X % Y EN LA SENTENCIAS DATA 
SIGUIENTES A ”";5000+PAIS:100;'", 


1450 PRINT "INCREMENTANDO EL Num 
ERO DE SENTENCIA DATA EN 1 POR € 
ADA NUEVA CIUDAD." 

1470 PRINT “*"EL PRIMER ELEMENTO 
CE LA LINEA *; S5SOBO0O+FPRAIS+<100;," D 
EEE SER EL TOTAL DE CIUCAD 
ES, EL SEGUNDO, EL NOMEGRE DEL PA 
IS.'"“" "PULSAR UNA TECLA PARA LIST 
AR SENTENCIAS DATA EXISTENTES." 
al dnd 0: LIST 5000+PAIS:100 


Este módulo permite al usuario mover un cursor sobre el dibujo 
hasta que queden establecidas las coordenadas de una ciudad a sa- 
tisfacción del usuario. Entonces estas coordenadas podrán entrarse 
en una sentencia de DATA al final del programa. 


Comentario 


Línea 13604. La sección correspondiente de la tabla B$ se visua- 
liza en la pantalla. 

Líneas 1370-1420. Estas son las rutinas estándar para el movi- 
miento del cursor sobre la pantalla. 

Línea 1434. Las coordenadas del cursor se visualizan en la pan- 
talla. 

Líneas 1446-1486. Si el usuario detiene el programa, se dan ins- 
trucciones para la entrada de las coordenadas en las sentencias 
DATA, al final del programa. La estructura de la sentencia de DATA 
es la siguiente: 
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5 - LAWRENCE¿Spectrum 


1) El nombre de cada país se guarda en una sentencia de DATA 
cuyo número de línea será 5040+(10N veces su número en 
B$). El nombre del país va precedido, en esta línea de DATA, 
por el número de sus ciudades cuyas coordenadas van a re- 
gistrarse. 

2) Los datos correspondientes a las ciudades se guardan en la 
línea que va inmediatamente a continuación, es decir 5161, 
5102 en la forma de líneas sencillas, cada una conteniendo el 
nombre de la ciudad, seguido por las coordenadas X e Y. 


Si la ciudad es la primera en entrarse para un país que acaba de 
cargarse, el país deberá guardarse en el lugar indicado por el pro- 
grama. Si no es la primera ciudad, el elemento que registra el número 
de ciudades deberá incrementarse y la nueva ciudad deberá entrarse 
en una línea propia. El programa da al usuario el número correcto de 
líneas donde hay que entrar los datos y dos líneas de ejemplo. Este 
es un método extremadamente sencillo a la hora de utilizarlo para 
entrar nuevos elementos y sirve como otro ejemplo del ahorro que 
puede conseguirse en la complejidad de los programas si el usuario 
puede realizar un poco de precompactación de la información con la 
que tiene que trabajar el programa. Si no hubiésemos utilizado líneas 
de DATA tendríamos que haber previsto una tabla que guardase los 
nombres de las ciudades y las coordenadas, y además un método 
para clasificar y otro para borrar. 


Comprobación del módulo 4.3.4 


Ahora ya podrá mover el cursor sobre la pantalla y detener el 
programa con la entrada de un “9”, tras lo cual deberán aparecer las 
instrucciones para la entrada de las coordenadas de la ciudad en las 
sentencias de DATA. 


MODULO 4.3.5 


1670>RESTORE (S5000+100x%xPRIS)1!: RE 
ADC N,C%s: LET CIUCAD=INT (RNDC*N+1 
3): RESTORE (S5S000+100%PRAIS+CIUDAD 
3): READ MA,X,Y: RETURN 


Esta línea lee los datos para un país y una ciudad, indicados por 
las variables PAIS y CIUDAD. Es un buen ejemplo de la flexibilidad 
de la función RESTORE en el Spectrum. 
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MODULO 4.3.6 


1S105;REM AAA 
1520 REM CUAL CIUDAD 

1530 REM XIII IA 
1540 CLS : PRINT INE 0;C%: FOR 1 
=1 TO 20: PRINT PAPER 5; INK 2;T7 
AB 1;B%$(PRIS,IJ: NEXT 1 

1550 PRINT OVER 121; PAPER 3; INE 
0; FLASH 1;AT xX,Y;“"*” 

1560 FOR I=1 TO 3 

1570 _LET OTOTAL= 


GTOTAL+1: INPUT 
MOMEPRE DE ESTA: E Aia "MN: IF 
H$=MH% THEN GO TO 1620 
1550 PRIMT AT 0,0; "RIM 

“: PAUSE 1080: FP 
RINT AT 0,0;C0%;" ": LET MAL=MAL + 
1: NEXT I 
1534 PRINT AT 0,0; “LA CILCAC ERA 
CO MBA: TIMPUT “*SENTER"" PARA CON 
TINUAR";0% 
1600 PRINT INE 2; PAPER Si; FLASH 

Bj¿AT xXx, Y¡BSIPAITS,xX.W) 

1610 60 TÚ) 1630 
1620 PRINT AT 0,6; “BRAGA 

“2 FOR Il=1 TO 20: PRINT FLASH 1 
INE 2; PAPER S¡AT 1,1,€ (PAIS A 
T1: PRINT INE 1;AT I,I;”"” 5d 
NEXT I: PRIMT OUER 1; FLASH 1; AT 
e o. o 


pS JN 


1630 PRINT IME 0;AT 21,0; "PREGUN 


TAS: "¡GQTOTAL; ”* GIEN: ";OTOTAL-MAL 
0 COTOTAL-MAL) -OTOTAL:100 


1640 INPUT "OTRA VEZ? (S/N)? "0 
: IF DOf$="N" THEN RETURN 

10650 INPUT "EL MISMO PAIS? (S/N) 

7 "¡O$: IF 0%5$="N" THEN LET PAIS= 

FN ACI 

1660 GO SUB 1670: GO TO 1510 


Este módulo visualiza un país, añade un indicador en la posición 
de una ciudad y pide la entrada del nombre de esta ciudad. Basán- 
dose en las respuestas dadas hasta el momento, se visualiza una 
evaluación de la actuación del usuario hasta el momento. 


Comentario 


Línea 157/. El nombre entrado se compara con el nombre sacado 
de la sentencia DATA. Obsérvese que se permiten tres intentos para 
cada ciudad. 

Línea 1620. Una sencilla recompensa visual se da si el usuario 
entra el nombre correcto. 

Línea 1656. Observe la utilización de la función para determinar 
un nuevo país si el usuario desea cambiar los países. 
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Comprobación del módulo 4.3.6 


El programa deberá ahora ser capaz de plantear un test basado 
en los datos entrados anteriormente. 


Resumen 


Se puede llegar a un abuso de las sentencias de DATA. Mucha 
gente lo hace utilizándolas en programas donde los datos deben cam- 
biarse frecuentemente o clasificarse de una forma u otra. Sin em- 
bargo, utilizándolas adecuadamente, las sentencias DATA pueden 
ser, además de convenientes, un ahorro de tiempo, ya que los datos 
pueden añadirse o borrarse sin la constante modificación de grandes 
tablas. Puede que ésta no sea una regla a seguir siempre, pero si un 
programa se detiene continuamente para pedir al usuario que entre 
nuevos datos entonces es que el programador tal vez está evitando 
la tarea de crear un programa que pueda tratar con el tipo de datos 
necesarios en la forma que realmente necesita. 


Posibles mejoras 


1) Podría ampliar el programa de forma que pudiera visualizar, 
ríos y montañas y otras características físicas y pedir el nom- 
bre. No es fácil, pero es posible e impresionaría mucho. 

2) ¿Podría pensar en otras aplicaciones de este programa? Una 
que se me ocurre es plantear preguntas sobre el análisis de 
circuitos para aquellos que aprenden electrónica, por ejemplo, 
¿cuál es la corriente en el punto indicado por el cursor par- 
padeante? 


132 


5. Programas de utilidad. 
Una colección de rutinas variadas 


En este capítulo consideramos seis programas muy distintos bajo 
el titulo de «programas de utilidad» que ilustran como mínimo la gran 
variedad de aplicaciones que puede elegir para sus programas, para 
responder a sus propias necesidades particulares. Los seis progra- 
mas son: 


1) Calculadora, que está diseñado para conseguir que el Spec- 
trum sea todavía más útil cuando se trate de series de cálculos 
repetitivos. 

2) Calorías, un programa que quizás ilustra las propias preocu- 
paciones del autor, pero que no obstante es una herramienta 
conveniente para aquellos que necesiten vigilar su peso. 

3) Gráficas, un programa de propósito general para el trazado de 
gráficas. 

4) Renumeración, una herramienta vital para sus propios pro- 
gramas, que le permitirá pulir aquellos programas numerados 
de forma irregular. 

5) Archivo ll. Volvemos a considerar el programa Archivo y lo 
desarrollamos de forma que pueda aceptar datos de tamaño 
y estructura irregular. Ahora se convierte en un programa mu- 
cho más potente. 

6) Mecanografía, un sencillo programa que puede enseñarle a 
teclear mejor. 


5.1. Calculadora 


Quizá le parezca extraño el diseñar un programa para hacer más 
fáciles los cálculos en un ordenador. Después de todo, ¿no es el 
Spectrum capaz de aceptar fórmulas en modo directo para cálculos 
directos o en forma de programa para cálculos regulares? 

La respuesta es naturalmente que el Spectrum puede hacer las 
dos cosas. Pero entre los cálculos directos que pueden entrarse fá- 
cilmente y el uso especializado que se realiza con regularidad sufi- 
ciente para justificar la escritura de un programa especial, como en el 
caso de los programas financieros del capítulo 2, existe un amplio 
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campo de necesidades en el que deben realizarse cálculos repetitivos 
y que sería demasiado pesado entrarlos en modo directo y, no obs- 
tante, no son lo suficientemente importantes para que valga la pena 
el hacer un programa especial para ellos. Para tales aplicaciones, ne- 
cesitamos un programa que permita entrar una gran variedad de fór- 
mulas y variables, que puedan modificarse fácilmente y visualizar sus 
resultados. 

Una vez empezado un proyecto de este tipo quizá también po- 
dríamos, al mismo tiempo, diseñar un programa en el que los resul- 
tados de cambiar el valor de las variables pudieran compararse en la 
forma de un programa de «Qué sucedería si», como el programa de 
presupuestos del capítulo 2. 

Para conseguir esto sin tener que escribir constantemente nue- 
vas fórmulas en las líneas del programa, utilizaremos dos de las ca- 
racterísticas más atractivas del BASIC de Sinclair: su flexible manejo 
de textos y su habilidad para evaluar expresiones numéricas guar- 
dadas en un texto. Utilizándolas conjuntamente, estas dos caracterís- 
ticas nos permitirán realizar tareas que serían casi imposibles en mu- 
chas otras máquinas cuyo precio excede con mucho el del Spectrum. 


MODULO 5.1.1 


1O0ODD>REM ERA RRAAEIAAAAAAAIAAAAAAA 
1010 REM MENU 
1020 REM XXXIX 


1030 CLS : INE 4: PAPER Pi PRINMNT 
nes CALCULADORA 

1040 PRINT ?*?11 TNICIALIZAR" 

1650 PRINT.  *"=2iUISUALIZAR TABLA" 
10664 PRIMT 731 CALCULAR TAGLA”" 
1070 PRIMT “41D DEFIMIR VARIABLES 
1050 PRIMNT 7“ "SI)DEFINIR LINEAS" 


10290 PRINT “*"6)UISUALIZAR ad 


as DE VARIABLES 

1100 PRINMNT “P¿1)FINALIZAR” 

1110 INPUT Z%: CLS 

1120 IF 25%="1"” THEN GO SUB 1220 
11:30 IF Z%="2" THEN GO SUE 1300 
1140 IF Z5$="3" THEN GO SUB 1400 
1130 IF Z2%="4" THEN GO SUB 1690 
1180 IF Z%="5" THEN 60 SUB 1510 
1170 IF Z%4="6" THEN GO SUB 192 
1130 IF 2Z%=" 7?" THEN 60 TO 1200 
1190 CLS : GO TO 1030 

1200 PRINT AT 10,10, "MAA jee 
“: INPUT "HA ENTRADO NUEVOS DATO 
3 QUE QUIERA GUARDAR? (SH) 
"0%: 1F O9$="3S" THEN SAUE '"CALCU 
LADOR"”: BEEP 1,40: PRINT "REBGOBLI 
NE Y PULSE UNA TECLA PARA UERIF I 
CAR.": PRUSE 0: VERIFY *"CALCULAD 
OR": PRINT "UERIFICADO" 

1210 STOP 


Otro módulo estándar de menú. 
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MODULO 5.1.2 


1220>REM REX AAA 
1230 REM INICIALIZAR 

1240 REM RX 
1250 DIM A$(20,10): DIM 6%4(20,10 
) DIM C5(20,50): DIM Es (20,501 
1260 DIM 6(20,10) DIM D(20,10) 
1270 LET LINEARS=0: LET UARIAGLES 
12 


La utilización de las distintas tablas se explicará en el transcurso 
del programa. 


MODULO 5.1.3 

1690>REM RX AAAAAAAIAAIA 
1700 REM DEFINIR VARIABLES 

1710 REM XXI AAA AA 
1720 CLS FOR 1I=1 TO UARIABLES 
PRINT- II; "¿BSCI)< NEXT 1 

17:30 INPUT "21)EXISTENTE 2) NUEU 
A S)SALIR ";0%: IF Og%$="3" THEN 
RETURN 

1740 IF 0%$=-="1" THEN INPUT "NUMER 

7 "GB: O TO 1760 

1750 IF O%4="2" THEN INPUT "NOMBR 
E DE LA VARIABLE? "“¡N5$: LET UARI 
ABLES=UARIABLES +1: LET N=UARIAB 
LES: LET 6% (VARIABLES) =HN54 

1760 CLS : PRINT BSi1iMWN):;: FOR I=1 

Ln 10: PRINT TI;“") "¡S(N,T7>: NEXT 
1770 INPUT "NUMERON' “222 "" SALIR 

Mo ooo” BORRAR "“¡0%: IF Of="22Z 
Z¿" THEN GO TO 1720 

17350 IF O$="DD0D" THEN FOR I=N TO 


UARIABLES-21: LET B%(1) =B%4 (T1+1) : 
FOR J=1 TO 10: LET 6(I.J)=6(14+1 
Ji: NEXT 3): MEXT. LL: LET 6% (UHART 
BLES)="": FOR 1I=1 TO 10: LET Bt 
ARIABLES,I)=0: NEXT 1: LET UARI 
ABLES=UARIABLES-1: RETURN 

1730 INPUT "UALOR? (*"x"* IGUAL 

COLUMNA UNO) “"¡N$: IF Ns$="X" THE 
A BIN,VUAL 05$)=B6(N,1): GO TO 

1500 LET BG[(N,VAL 0%) =UAL MG: 650 

TO 1760 


El propósito de este módulo es permitir al usuario nombrar 24 
variables distintas y especificar una serie de 1f valores para cada 
variable nombrada, permitiendo así realizar fácilmente cálculos com- 
parativos. 
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Comentario 


Líneas 1720-1730. Los nombres de las variables definidas hasta 
el momento están guardadas en la tabla B$ y se visualizan al entrar 
en este módulo. 

Línea 1754. Los nombres de las nuevas variables se colocan en 
la tabla en una posición definida por la variable VARIABLES, que se 
pone a cero al empezar y se incrementa para cada nuevo nombre. 

Línea 1764. Los 1/ valores asociados con la variable especifi- 
cada se guardan en la tabla B. Estos valores se visualizan para que 
el usuario pueda especificar cambios. 


Comprobación del módulo 5.1.3 
Las variables especificadas no tienen por ahora una utilización 


práctica, pero el módulo debe ser capaz de aceptar 2% nombres, junto 
con 16 valores asociados y borrar nombres y valores. 


MODULO 5.1.4 

1920:REM FERIA 

1930 REM UISUALIZAR COLUMNA 

1940 REM REE AAA 

1950 CLS : INPUT "QUE COLUMNA? ( 

D PARA SALIR: "¡¿N: 1F N=0 THEN E 

ETURN 

1950 CLS : PRINT "ERRE 
1970 FOR I=1 TO UARIABLES: PRINT 
Li SAS BELLIS OO NA NEXT. A 
1930 INPUT "NUMERO PARA CORRECCI 

OM. coc zzz" SALIR";0%: 1F QÉ$=" 


222" THEN GO TO 21950 

19390 INPUT "NUEVO UALOR DE LA UA 
RIRBGLE? "¡R: LET BIUAL 05$,N)=<R: 
GO TO 13960 


El módulo anterior permitía la visualización de todos los valores 
asociados a cada variable. Este módulo visualiza el primero, el se- 
gundo o enésimo valor asociado con cada variable. Así, si deben rea- 
lizarse una serie de cálculos sobre una serie de datos anuales, este 
módulo visualizará el valor de cada variable para un año determinado. 


Comprobación del módulo 5.1.4 


Si ha entrado los nombres de algunas variables y algunos valores 
asociados, podrá visualizar una columna de ellos. 
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MODULO 5.1.5 


15S10>REM RARA 

1520 REM DEFINIR LINEAS 

1330 REM ARIAS 
PRINT *" La 
1 TO LINERS: PRINT 1, 

E MA ¿CRL? NEXT. 1 
1550 TMPÚT "1)EXISTENTE 2) NDEU 
A 3) BORRAR 9) SALIR";O%: IF ( 


$='"4" THEM RETURN 

13570 IF O%4="2" THEN INPUT *“"TITUL 

O DE LINEAR? "“¡;N$: LET LINEAS=L IN 

ERAS+1: LET N=LINEAS: LET ASILINE 
y . 


AS)=NS$: INPUT "FORMULA? ";Fxs: LE 
T CS(LINEARAS)=<=FS>5: GO SUB 1490: LE 
T ES IN)=G5: GO TO 1540 

15530 IF 0%=-="1" THEN INPUT "NUMER 
DO? "¿N INPUT "TITULO NUEVO” (S/, 
II IF TH%="S" THEN INPUT "E 


SPECIFICAR NUEVO TITULO: “;TS: L 
ET ASIN) =TS 

15390 IF 0%5="1" THEN INPUT "NUEVA 
FORMULA? (SN) ";¿THB: IF Tg$="S3S" 

THEN INPUT "ESPECIFICAR NUEDA FO 
RMULA: “¡F5: LET C5I1N)=F5S5: GO SU 
6 1490: LET ES$5$(N)=G%: GO TO 1546 


1900 IF 0O%="3" THEN INPUT "NUMER 
O? "¡¿¡N: FOR I=N TO LINERS-1: LET 
ASCT)=AS CTI4+10): LET CA5(TI)=CA5(TI4+1 
1 NEXT” Ls LET ARILINEASI="". LE 

pa de dde LET LINEAS=L INE 
S — 

1910 RETURN 


Para comprender este módulo tendrá que saber un poco cómo 
funciona el Spectrum al evaluar una expresión guardada en un texto 
o variable alfanumérica. Esa parece a primera vista una característica 
poco importante. Para qué puede servir el poder decirle al Spectrum 
que visualice el valor de “141” (PRINT VAL *1 +1”) —o de cualquier 
otra expresión para el caso— cuando puede hacerse más fácilmente 
mediante PRINT 1+1. La respuesta es que mientras una expresión 
numérica directa como 1+1 tan sólo puede incorporarse en una línea 
de programa, “1+1” puede colocarse en una línea de programa o 
guardarse y manipularse al igual que cualquier otro texto. Este módulo 
utiliza este hecho para guardar las fórmulas entradas por el usuario. 


Comentario 


Línea 185. El número de fórmulas entradas hasta el momento 
se guarda en la variable LINEAS. La fórmula, en la forma entrada por 
el usuario, se guarda en la tabla A$ que limita la longitud de cada una 
a 5 caracteres. 

Línea 1870. La fórmula, que puede tener hasta 5 caracteres de 
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largo como indicamos anteriormente, puede ser cualquier cosa que el 
Spectrum pueda reconocer como algo que tenga un valor. La única 
limitación es que los nombres de variable no pueden contener nú- 
meros. Así AA sería reconocido como un nombre de variable, mientras 
que Al, no. La única excepción es que una fórmula puede utilizar los 
resultados de otra, incluyendo una variable tal como LINEA1 +10, que 
en este caso se evaluaría como el resultado de la primera fórmula 
entrada, más 14. 


Comprobación del módulo 5.1.5 


Este módulo no puede comprobarse totalmente hasta que no se 
hayan entrado los dos siguientes. Si se entra temporalmente la línea 
149% LET G$5=F$: RETURN, el módulo deberá aceptar fórmulas, 
junto con títulos identificativos breves de hasta 1/ caracteres, y de- 
berá permitir cambios y borrados. 


MODULO 5.1.6 


14 DIDARENM REA EAAAAAAAAAAAAAAAAAAA 
1500 REM IDENTIFICAR UARIABLES 
1510 REM 33% XHXXIXAIIAIXAIE ZE 
1520 LET G%="": LET Us="" 

15530 FOR I=1 TO LEN F%: IF F34(1) 


1540 IF FAT) >="A" AND FStTI)<="Z 
“ THEN LET Us=US$+FS$(13): GO TO 16 


0 IF LEN Ug>=5 THEN IF Usta2 T 
"LINEA" AND.  (FS(T1)5="0" ANC 
THEN LET US$=U5$+F $ (1 


IF LEN UB$x>=5S THEN IF Ustl T 
a AND LEN Ug=5 AND (tft 
<U- UR FESLLir> 2. OR. TES 
AND FS$(TI32>3")3)3) THEN PRIN 
ER NO DEFINIDA": FPARAUSE 2060: 

RN 

IF LEN Ug$>=5 THEN 1F Ust2 T 
"LINEAR" AND. (FSs1I)<"A" OR F 
SE "Y. "FHEN GO SUB. 1830: LET 
: LET G=G%4+F5$T1): 60 TO 16 


IF U$x<x>""”" AND (FA4(T)<'"A"” OR 
LITE SE. THEN 50 SUB 1630 LE 
S$+FS5(I): LET Ug="": GO TO 


LET GáG=GS5+FA4ILCI) 
NEXT I 
IF LEN U$>0 THEN 60 SUB 1653 


RETURN 
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Una vez entrado algo que sea reconocible por el Spectrum como 
una fórmula, nos encontramos con un problema —el de dar un valor 
a las variables que contiene la fórmula—. Si la fórmula contuviese una 
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variable de nombre STOTAL, un nombre válido para el programa, no 
podría obtenerse el resultado de la fórmula a menos que el Spectrum 
tuviese un valor para esta variable, algo que tan sólo puede hacerse 
utilizando una sentencia INPUT o LET, por ejemplo, LET STO- 
TAL=14. 

Sería difícil llamar a este procedimiento flexible y fácil de utilizar 
comparado con la forma en que se nombraron y se les dieron valores 
a las variables en el módulo 3. El hecho es que mientras que los ele- 
mentos guardados en B$ pueden llamarse variables, desde el punto 
de vista del programa, no son nada parecido para el Spectrum y no 
serán reconocidos como tales si se incluyen en una fórmula que debe 
evaluarse. Los nombres de variables entrados por el usuario nunca 
se utilizan en los cálculos realizados por este programa. Son susti- 
tuidos por otros nombres de variables para los cuales el Spectrum sí 
que tiene un valor correspondiente. 

En este módulo, y en el siguiente, la fórmula entrada por el usua- 
rio se traduce a una forma que puede ser manejada por el Spectrum. 
Ya se ha dicho que pueden entrarse hasta 1f valores junto con el 
nombre de la variable y que estos 1 valores se guardan en la tabla 
B. Por lo tanto, para el Spectrum, cada uno de estos valores tiene un 
nombre del tipo B (X,Y), donde X es el número del nombre de la va- 
riable asociado en B$ e Y es el número de la columna del 1 al 164. 
Estos dos módulos crean una nueva fórmula para sustituir la entrada 
por el usuario, cuyas variables serán elementos tomados de la ta- 
bla B. Se puede pedir que el Spectrum evalúe esta segunda fórmula 
utilizando la función VAL, ya que todas sus variables están definidas. 
Así, una fórmula entrada por el usuario como CIRCULO* PI* RADIO” 2 
se convertiría en algo tal como B(1,3)*PI* B(2,3). 


Comentario 


Línea 152. G$ se utilizará para guardar la fórmula traducida, a 
medida que se va construyendo, y por último se guardará en la tabla 
ES en la posición equivalente a la que ocupaba la fórmula inicial en 
A$. B$ se utiliza para guardar temporalmente los nombres identifi- 
cados en la fórmula entrada por el usuario. 

Línea 1530. La fórmula definida por el usuario se guardará en una 
línea de 54 caracteres de la tabla y por lo general no rellenará este 
espacio. El módulo considera terminada la fórmula cuando encuentra 
el primer espacio vacío. 

Línea 154f. Si se encuentra un carácter en la fórmula definida 
por el usuario, comprendido entre la A y la Z, entonces se interpreta 
como parte del nombre de la variable y se añade a lo que ya esté 
contenido en V$. 
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Línea 155/. La primera sentencia de esta línea quizá le parezca 
un poco extraña; de hecho es necesaria para evitar un mensaje de 
error si V$ tiene menos de cuatro caracteres de largo y se especifica 
una condición tal como IF V$ (1 TO 5)=““LINEA”. Si V$ tiene menos 
de cinco caracteres de largo, esta línea no se ejecuta y si V$ tiene 
cinco o más caracteres de largo la sentencia no representa ninguna 
diferencia para la ejecución del programa. Una utilización interesante 
de la forma en que se comporta el Spectrum cuando se encuentra 
una condición falsa. El propósito de la parte principal de la línea es el 
proporcionar la posibilidad de reconocer variables del tipo LINEA1, 
LINEA2, etc. que se mencionaron anteriormente. 

Línea 156/. Esta línea comprueba que si una variable empieza 
con las letras LINEA, tenga un número identificativo a continuación. 

Línea 1576. Esta línea reconoce cuándo una variable LINEA está 
completa, identificando el primer carácter que no puede estar conte- 
nido en esta variable. 

Línea 1580. Volviendo al tipo normal de nombre de variable, que 
tan sólo podrá contener letras, esta línea reconoce cuándo una varia- 
ble de este tipo está completa. 

Línea 1594. Los caracteres que no forman parte de un nombre 
de variable se añaden a la fórmula traducida. 

Línea 1610. Generalmente, el final de un nombre de variable se 
reconoce por que: 


a) V$ contiene algunos caracteres y 
b) El siguiente carácter encontrado no puede formar parte de una 
variable. 


Evidentemente esto no puede funcionar si el nombre de la varia- 
ble está al final de la fórmula, por lo que esta línea se utiliza para 
comprobar si V$, que se vacía tras cada identificación infructuosa, 
contiene algo. 


Comprobación del módulo 5.1.6 


Esta comprobación tan sólo puede realizarse tras la entrada del 
próximo módulo. 


MODULO 5.1.7 


1630>REM RIEL RA AAA 
1640 REM EVALUAR 

1650 REM RX LALALA 
1660 IF LEN Us$s>=5 THEN IF Usd(1 T 
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O S5S)3="LINER” THEM LET G%5=GH%+"D(" 
+U$(6 TO 3 +7 ,J3)": RETURN 

1670 FOR J=1 TO VARIABLES: IF US$ 
<5B5(3,1 TO LEN US$) THEN NEXT y: 


PRINT— "UARIABGLE ";U%5s;" NO HALLA 
o PAUSE 200: LET IND=0: RETU 


1650 LET GS=G%+"Etl"4+STRHE J+",.J1' 
: RETURN 


Una vez que el módulo anterior ha identificado los nombres de 
las variables en la fórmula definida por el usuario, este módulo traduce 
estos nombres a términos que pueda manejar el Spectrum en los cál- 
culos. 


Comentario 


Línea 1666. Los resultados de las evaluaciones de las fórmulas 
se colocarán después en la tabla D. Esta línea convierte un nombre 
de variable, como LINEA3, en el nombre de un elemento de D, tal 
como D(3,J). «J» se utiliza aquí ya que en un punto posterior la fór- 
mula guardada se evaluará mediante dos bucles, un bucle con la va- 
riable | que se referirá al número de fórmulas y un bucle con la variable 
J que se referirá a cada uno de los 1H posibles valores para cada 
variable. 

Línea 1676. En el caso de una variable ordinaria, esta línea com- 
prueba los nombres de variables existentes e informa al usuario si 
esta variable no ha sido definida. 

Línea 168. Si el nombre de la variable ya ha sido declarado, 
el elemento correspondiente de la tabla B se añade a G$. Si la varia- 
ble STOTAL fuera la tercera en la lista de variables, se convertiría en 
B(3,J). 


Comprobación del módulo 5.1.7 


Ahora ya podrá entrar los nombres de variables y especificar una 
serie de valores para cada uno de ellos. Entre una fórmula compuesta 
por números, símbolos matemáticos y variables que haya definido. 
Detenga el programa y compruebe que esto se ha traducido correc- 
tamente. Deberá encontrarlo guardado en la variable alfanumérica 
temporal G$ y como un elemento en la tabla E$. Si conoce la res- 
puesta correcta para su fórmula particular, puede comprobar la exac- 
titud de los módulos entrando PRINT VAL G$ en modo directo. Tam- 
bién podrá utilizar los resultados de una fórmula como variable en 
otra, utilizando variables LINEA. 
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MODULO 5.1.8 


140D0>REM RAEE 
1410 REM CALCULAR TABLA 

142090 REH EXA AAA EA AAA 
1430 INPUT "CUANTAS COLUMHANAST “; 
COLUMNAS 

1440 FOR KH=1 TO LINEAS: LET F%s=€ 
BIRJ): GO SUB 14390: LET ESA I[RiI=GH%: 
MEXT EH 

1456 FOR 1-1 TO LINEAS: FOR ¿=1 

TO COLUMNAS 

1460 LET PCT, =VUAL ESTI) 

1470 NEXT 1: NEXT. I 

1430 RETURH 


Una vez evaluados los resultados de la fórmula definida por el 
usuario, utilizando los valores especificados para las variables entra- 
das, quizá desee modificar una variable determinada. En lugar de ree- 
valuarlo todo cada vez que se modifica una variable, este módulo re- 
calcula la totalidad de la tabla de «líneas y columnas» cuando el usua- 
rio lo especifica. Las fórmulas no traducidas se consiguen de la tabla 
C$ y se vuelven a traducir basándose en los últimos datos. 


Comentario 


Línea 1466. A primera vista quizá parezca que esta línea coloque 
una serie completa de elementos de la tabla D al mismo valor, pero 
esto no es cierto. La evaluación de E$(l) cambiará cada vez que cam- 
bie J, ya que hemos traducido las variables definidas por el usuario a 
la forma B(X,J) o D(X,J). Observe que no se hace ningún intento de 
resolver los problemas que se plantean por la interacción de los va- 
lores de LINEAS. Si el valor de LINEA1 depende del valor de LINEA 
2 y LINEA2 debe modificarse por este bucle, el valor de LINEA 1 no 
tendrá en cuenta este hecho a menos que el módulo se llame dos 
veces. Las interacciones más complejas entre las líneas deberán pen- 
sarse antes de entrarlas. 


MODULO 5.1.9 


13500 :REM 3 X%ILXFAIAAAIAAAAAAIAAAA 
1310 REM VISUALIZAR TABLA 

1320 REM XXXIX 
1330 INPUT "COLUMNA A UISUALIZAR 
7 (O=SALIRI"; COLUMNA: PAPER “7: I 
F COLUMNA=0 THEN PAPER 7: RETURN 
L 


340 CLS : PRINT "BEA LAL 
R 


E 
50 FOR I=1 TO LINEAS: PAPER Ss 
* $ ) 


( 
(T-2=INT (1I-2))): PRINT ASCII 


, , 

13560 LET M%=3TR% D(I,CO 
F LEN H$>10 THEN PRINT 
JJ: GO TO 1350 

1370 PRINT M5 

1350 MEXT I 

13320 50 TO 133 


Este módulo visualiza el breve título de cada línea o fórmula y el 
valor que se deriva de la línea al utilizar una de las diez columnas 
posibles de valores de las variables. 


Comentario 


Líneas 1360-1370. Estas dos líneas truncan cualquier cifra a 14) 
dígitos. El único propósito de esto es permitir visualizar dos columnas 
con un mínimo de cambios en el programa. Si va a necesitar 1) o más 
dígitos de una forma regular, quizá tenga que modificar esto. 


Comprobación del módulo 5.1.9 


Ahora ya podrá comprobar el programa completo entrando 2f) va- 
riables, cada una con 1/ posibles valores, hasta 24 líneas de fórmulas 
que utilicen estas variables y breves títulos para cada una de estas 
líneas y visualizar los resultados, columna a columna. Si estas com- 
probaciones son satisfactorias el programa ya está listo para utilizarlo. 


Resumen 


Como intento de programa de propósito general, a primera vista 
éste parece poco interesante. Sin embargo, puede ser de mucha uti- 
lidad en una gran variedad de campos. En los negocios puede utili- 
zarse para examinar los efectos de los cambios en los costes de los 
materiales o en los precios o en ambas cosas. En el hogar puede ser 
un adjunto a los programas financieros del capítulo 2, realizando los 
cálculos para los impuestos, si puede encontrar la fórmula adecuada. 
Los aficionados quizá deseen utilizarlo para cálculos repetitivos en 
otros campos. Con muchos otros programas de este libro, se trata de 
una herramienta flexible y tan sólo podrá obtener una opinión ade- 
cuada de sus posibilidades jugando con él, aplicándolo y modificán- 
dolo según sus propias necesidades. 
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Posibles mejoras 


1) Si no necesita más de tres o cuatro dígitos para algunas apli- 
caciones, adapte el programa para que pueda visualizar va- 
rias columnas a la vez. 

2) Si posee un Spectrum 48 K, amplíe el programa para que 
pueda cubrir más variables y fórmulas, proporcionando así la 
oportunidad de construir una biblioteca de fórmulas útiles. 


5.2 Calorías 


Tal como está este programa puede serle útil o no. Si necesita 
contar las calorías, puede ahorrarle mucho tiempo y hacer que sus 
esfuerzos den resultados mucho más precisos. Pero tanto si le inte- 
resan las calorías como si no, este programa merece un estudio cui- 
dadoso ya que es un ejemplo de la forma en que el estilo modular de 
programación que hemos adoptado permite adaptar rápidamente el 
material escrito con anterioridad para otras utilizaciones. Este pro- 
grama, en su mayoría, es una copia disfrazada de gran parte de las 
secciones del Test de Respuesta Múltiple. La brevedad de los co- 
mentarios en el programa le dará cierta idea de la velocidad en que 
fue escrito. A pesar de este hecho es un programa importante en el 
sentido de que muestra cómo pueden construirse y utilizarse diccio- 
narios de elementos y de sus cantidades relacionadas. 


MODULO 5.2.1 


1L130>REM RRE AAA 
11390 REM MENU 
1200 REM. XFA 


1210 BORDER 4d: INEK O: PAPER 7: C 
LS : PRINT ” A 
1220 PRINT *"1I>UISUALIZAR LA LIS 
TA DE HOY" 

1230 PRINT “*"2)ENTRADA A LA LIST 
A DE HOY" 

1240 PRINT "3! INICIAR LISTA NUE 
UA" 

1250 PRINT “**"4)BORRAR DE LA LIST 
A DIARIA" 

1250 PRINT “*"S5S)EXTENDER DICCIONA 


RIO” 

12720 PRINT “*"”"6) UISUALIZAR DICCIO 
NARTO-BORRAR" 

1250 PRINT ** 2) INICIALIZAR" 

1290 PRINT *"S) FINALIZAR” 

1300 INPUT "Cual requiere?” ;Zg%s: 


310 IF Z%="1" THEN GO SU56 14530 
20 IF Z2%="2" THEN GO SUB 15350 
35530 1F Z%="353" THEN GO SUE 1700 


1540 IF Z%4="4" THEN GO SUB 252 
15350 IF Z%="5" THEN 60 SUB 1740 
1560 IF Z%="6" THEN GO SUB 2170 
1570 IF Z%=" 7" THEN GO TO 1030 


1550 IF Z%="3" THEN GO TO 1400 
1390 CLS : GO TO 1150 

TA PRINT FLASH 21;AT 10,12; "CAL 
1410 INPUT "HA ENTRADO INFORMACI 
ÓN NUEVA QUE CESEE GUARDAR. (S.-N 
II" ¡O05: IF O%5$="3" THEN SAVE *"CALO 
RIAS": BEEP 1,40: PRINT “*"REBOBI 
NAR, UNA TECLA PARA VERIFICAR": 
PRUSE 0: UERIFY "CALORIAS": PRIN 
T “*“"UERIFICADO" 

1420 STOP 


Un módulo estándar de menú 


MODULO 5.2.2 


1>50 TO 11350 


1000 REM XEXEAELELE EEE 


+ 
+ 
+ 
Ho 
Dox (0 
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++ 


-— 90% 
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¿Por qué he puesto las variables antes del menú? Bueno, me 
pareció una buena idea cuando lo hice. La utilización de las distintas 


variables se analizará en el transcurso del programa. 


MODULO 5.2.3 


1740>REM XXXI XX% 
1750 REM ENTRAR ELEMEN 
1760 REM CEA 

Ñ 


17 

ARA 

175 

MERE Pa 

E ENT: PO E LA THEN RETÚRN. 
1730 PRINT AT 2,8;FS% 
1500 PRINT * "UNIDADES: “: INPUT * 
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NOMBRE ":¡G% 
1510 PRINT AT 4,10;,G 
1820 PRINT “"CALORIA: 


$ 
S POR UNIDCAC 
2: INPUT "NUMERO ";H5S 
$ 
E 


. , 

19830 LET TEMP =YAL HS 

1540 PRINT AT 6,21,H 

1350 INPUT "son correctas? (5-N) 
"“¡0OH$: IF O%$="N" THEN GO TO 1770 

1550 CLS : GO SUB 1830: GO SUB <2 


030 
1570 LET ELEMENTOS =ELEMENTOS+1: 
GO TO 1740 


Este módulo tan directo acepta tres entradas que se refieren al 
nombre de un alimento, las unidades en que se mide habitualmente 
y el número de calorías por unidad. 


MODULO 5.2.4 


1SSO>REM RAEE 
1590 REM BUSQUEDA SINARI 


1910 DEF FN Ati =256%C0D 
1) +CODE E 
320 LET POTEN=INT (LN (E 


POTEN-=1 TO O STEP -1 


- (271) ¿CAS IPI)>3FSAS) A+ (2 
q) 
THEN LET S=2 
EMENTOS-1 THEN LET $ 


o 
m 
— 
TU 

ITA 
12 
1D 


|IPRRS+PRRRÍPO 
DOHDDDD- 
e 


(3 
$ THEN LET 3=3-1 


> 1H IMA 
=z 


mu 
be 
je 
90 
e 
Y 
An) 
Din T 
Un er 
w 
YD 


2020 RETU 


> 
pi 


Este es un módulo de búsqueda binaria para determinar la situa- 
ción de un alimento dentro del diccionario total de alimentos, guardado 
en A$. Pueden guardarse hasta 5// alimentos, cada uno con un nom- 
bre de 15 caracteres de longitud. 


MODULO 5.2.5 

2030>REM RRE ERELA ALEA 
2040 REM INSERCION 

2050 REM REXHXXA XXXL LAIA 
2060 IF_LEN P$=4 THEN GO TO 210080 
2070 LET LUGAR=256%xC0ODE P5(3)4+C0 


2050 LET PS%=P$( TO 2)4+P5(S TO ) 


0 LET LUGAR=ELEMF IN 
1090 LET ELEMFIN=<ELEMF IN+1 
20 LET AS (LUGAR) =F5% 


2130 LET E5 (LUGAR) =G5% 

2140 LET C(LUGAR) =TEMP 

2150 LET Ig5=1%1! TO 2%5)+CHRA% INT 
(LUGAR-2536) +20HRAS% INT" (LUGAR-256 

*INT — (LUGAR-256) 1) +14 (2%5+1 TO ) 

2150 RETURN 


Este módulo inserta el nuevo elemento en su lugar correcto, si- 
guiendo el orden utilizado en el módulo equivalente del programa de 
Respuesta Múltiple. Primeramente se rellenan los espacios vacíos de : 
la lista, y a continuación las posiciones situadas al final de la lista. El 
orden real viene indicado por un par de caracteres contenidos en la 


tabla de punteros, 1$. 


Comprobación del módulo 5.2.5 


Por el momento, aunque el diccionario no pueda visualizarse fá- 
cilmente, deberá ser capaz de entrar elementos en este diccionario. 
Estos se guardarán en A$ en el orden en que han sido entrados. Las 
unidades asociadas y los valores caloríficos deberán guardarse en las 
posiciones paralelas de B$ y C, respectivamente. El orden correcto 
de los elementos deberá poderse descifrar a partir del valor del código 


representado por el par de caracteres en 1l$. 


MODULO 5.2.6 

2170 >REH HLFLLRLERLE REALI RARA 
2130 REM BUSQUEDA DE USUARIO 
2190 REN XXXL 
2200 PRINT " 


REGIO 


2220 PRINT ““>oNUMERO POSITIVO O 
NEGATIVO PARA MOUER PUNTERO" 


2230 PRINT **">""DDD"" PARA BORRA 
R. ELEMENTO" 
2240 PRINT “*">""22Z22"" PARA ABAND 


ÓONAR FUNCION" 
22530 FRINT L5 
2260 1F ELEMENTOS=2 THEN RETURN 
2270 LET 3=2 


f 


22530 LET P=FN A() 

22390 rd AT 12,0; "REGISTRO No. 
¡3 

25300 PRINT *"COMIDR: "¡¿ASI(P) 

25310 PRINT *“"UNTITCADES: "¡;B4ltP) 

2520 PRINT "CALORIAS: "¡;CAU(PI5;" 

2330 INPUT Cuat requiere”?”;Ss%» 

2540 IF S%4="DCDD" THEN GO SUB 244 

0: RETURN 

2359 IF S$="222" THEN RETURN 

25560 IF S5S%<>"" THEN GO TO 2400 

2370 LET 3=-=5S+1 
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2550 IF S=ELEMENTOS THEN RETURN 
2330 60 TO 2280 

2400 LET S=S+UAL 35% 

2410 IF S:=ELEMENTOS THEN RETURN 


2420 IF 5<2 THEN LET S3=2 
2430 560 TO 2250 


Este es un sencillo módulo de búsqueda basado en el que utilizó 
en el programa de Respuesta Múltiple. No es realmente una bús- 
queda; el usuario tan sólo puede recorrer, hacia adelante o hacia 
atrás, el archivo. 

El módulo de borrado se llama también desde este módulo. 


Comprobación del módulo 5.2.6 


Ahora ya podrá visualizar todos los alimentos entrados mediante 
una orden. 


MODULO 5.2.7 


2440>REM 
2450 REM 
24609 REM 
2470 LET 


* Hx 
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TR Dor 

+ Ox 
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Este es el método de borrado utilizado en el programa de Res- 
puesta Múltiple. La dirección del elemento borrado se elimina de 1$ y 
el espacio que deja se guarda en P$. Observe que el registro de he- 
cho no se ha eliminado realmente de la tabla. Lo que sucede es que 
el programa ya no lo tendrá en cuenta. 


Comprobación del módulo 5.2.7 


Ahora ya podrá borrar elementos del diccionario. 


MODULO 5.2.8 
1SS0>REM REFERIA 
15390 REM ANADIR A LA LISTA CE 


HOY 
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1510 PRINTO id 


1620 PRINT ""COMI ñ 
PRINT AT 2,5;FS$ 
1630 GO SUB 1350: IF AS$[(P)<>F% T 
HEN PRINT AT 10,0; "*COMIDA ESPEC 
IFICACA DESCONOCIDA, COMPROBAR P 


OR FAVOR.”": PAUSE 200: RETURN 
1640 PRINT “*"UNICADES: "¡ES (FP) 
1650 PRINT * "CANTIDAD: ": INPUT Q 


PRINT AT 6,10,06 


1660 INPUT "Son correctas”? (S/N) 
¡O : CLS : IF O%$="N" THEN 50 TO 
1550 

16709 LET LISTA<LISTA+1: LET TS5$I1L 

ISTA,1)=AS(P1:;: LET TS5(LISTA,2)=S 

As EN "+EB$H(P): LET TILISTA) =0% 

1650 INPUT '"Mas elementos”? (S.-N) 

"¿0%$: CLS : IF Of$="S3" THEN GO TO 


1550 
16390 RETURN 


Con este módulo nos alejamos de la estructura que hemos to- 
mado del programa de Respuesta Múltiple y llegamos a las partes 
nuevas de nuestra nueva aplicación. El propósito de este módulo es 
el crear de una forma rápida una lista diaria de alimentos, basada en 
los alimentos que ya están guardados en el diccionario. La lista no 
tiene por qué realizarse de una vez sino a medida que se van co- 
miendo los alimentos o se planean los menús. 

Línea 1634. Observe la interesante utilización que se hace aquí 
del módulo de búsqueda binaria. Cuando se entra un alimento para 
lista diaria, el nombre se envía al módulo de búsqueda que identifica 
la posición que este alimento ocuparía si estuviese contenido en el 
diccionario. Al volver de esta búsqueda, el alimento que está en esta 
posición se compara con el alimento entrado para la lista diaria. Si no 
son iguales quiere decir que el alimento entrado para la lista diaria no 
está contenido en el diccionario, de lo cual se informa al usuario. 

Línea 1676. La lista diaria actual se guarda en las dos mitades 
de la tabla T$ y los valores caloríficos asociados en T. 


Comprobación del módulo 5.2.8 


Ahora el programa deberá aceptar la entrada de alimentos en la 
lista diaria, visualizar las unidades usuales de medida e invitarle a 
entrar una cantidad. Los alimentos que no estén en el diccionario no 
serán aceptados. 
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MODULO 5.2.9 


14 30>RENM xx%% 
1440 REM LIS 
1450 REM <x%w 
1460 LET TOT 
1470 FOR I=1 TO LISTA 


EXLEXLERLELELLLEARL 
E HOr 
EXAEFAEAAAAAAAAAEAA 


1430 PRINT "COMICA LE. CE, DI 
1490 PRINT "CANTIDAD: “¡THUÚT,E) 
1500 PRINT "CALORIAS: “¡T(I) 

1510 PRINT Ls 

1520 LET TOTAL=TOTAL+T(T) 

1330 NEXT I 

O PRINT “"TOTAL CALORIAS: ";TO 
1550 PRINT "Pulsar cualquier te 


cla para con. 
153560 PRUSE 0 
1570 RETURN 


Este módulo visualiza simplemente la lista de alimentos del día, 
dando su nombre, la cantidad y el total de calorías para esta cantidad. 
Al final de la lista se visualizan el total de calorías para esta lista. 


MODULO 5.2.10 


1I7POD>REM RARA 
1710 REM NUEVA LISTA 

1720 REÍR XIII 
1730 DIM T%$(50,2,20): DIM T(50): 
LET LIST=0: GO SUB 158580: RETURN 


Este módulo permite inicializar las tablas relativas a la lista diaria 
sin afectar a las tablas principales. 


MODULO 5.2.11 


2520>REM FAR RAAAAAAAAAEAAAAAEAE 
25350 REM BORRAR CE LA LISTA 

2540 REM 2x3 
253 Y FOR 1=1 TO LISTA 


2570 INPUT "DOD=BORRAR “ENTER= 
SIGUIENTE ¿ZZZ=3ALIR" 0%: IF 0 
$="Z2Z" THEN RETURN 

2550 IF O%="D0D0D" THEN 60 TO 2600 
25390 NEXT Il: RETURN 

Lara” LET TRALI) 
J 


Este módulo borra elementos de la lista diaria. 
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Comprobación del módulo 5.2.11 


Ahora podrá establecer una lista diaria, visualizarla y borrar ele- 
mentos de la misma. También podrá inicializar las tablas para em- 
pezar una nueva lista. Si estas comprobaciones son satisfactorias el 
programa ya está preparado para su utilización. 


Resumen 


Espero que durante la ejecución de este programa se haya dado 
cuenta de la ventaja que representa el planteo modular en la escritura 
de programas. Ha permitido que la mayor parte de este programa se 
sacase simplemente de una aplicación muy distinta. A medida que 
pase el tiempo y cuando haya desarrollado sus propios métodos fa- 
voritos para tratar los distintos tipos de materiales y procesos llegará 
a tener cierta habilidad para encontrar métodos de realizar una nueva 
aplicación sobre el Spectrum utilizando otros métodos que ya ha co- 
nocido con anterioridad y líneas de programa que ha comprobado y 
depurado anteriormente. 

De esto debe sacar la importante lección de que es más impor- 
tante el dominar métodos que programas, aunque los programas a 
veces suelen contener nuevos métodos. Una buena biblioteca de pro- 
gramas le dejarán en una buena posición hasta que aparezca una 
aplicación totalmente nueva. Una buena colección de métodos, con- 
tenidos en módulos claramente identificables, no le dejarán nunca col- 
gado. Por lo tanto, no se limite a métodos que necesite tan sólo para 
las aplicaciones actuales. Si ve una forma interesante de hacer las 
cosas en una revista o un libro, escriba un sencillo programa para 
utilizarla, aunque sea sólo por hacerlo. Estará ya preparada para 
cuando tenga que utilizarla. 

Entre tantas generalizaciones no pierda de vista el hecho de que 
este programa tiene un amplio campo de aplicaciones potenciales. 
Los alimentos no son en absoluto la única área donde es útil el tener 
un diccionario de elementos, asociados con sus unidades típicas y un 
valor de algún tipo. Los tenderos, por ejemplo, generalmente tienen 
en su stock menos de 5/4 productos, cada uno se vende en una uni- 
dad de algún tipo y a cierto precio. ¿Por qué no adaptar el programa 
para una utilización de este tipo? Recuerde que lo que cuenta son los 
métodos y no los programas. Este programa es un ejemplo de un 
método, usted ya me entiende... 
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Posibles mejoras 


1) Una diferencia importante entre este programa y el de Res- 
puesta Múltiple es que este último dimensionaba sus propias 
tablas para poder tratar con varias aplicaciones mientras uti- 
lizaba la memoria al máximo. Podría cambiar el programa de 
forma que se convirtiera en una herramienta de propósito ge- 
neral para nombre y cantidad, con los nombres de los ele- 
mentos especificados por el usuario. 


5.3 Gráficas 


Este pequeño programa es una herramienta de dibujo de gráficas 
de propósito general que permite al usuario el definir las unidades de 
ambos ejes con respecto al nombre y su longitud y entrar los datos 
de forma ordenada o desordenada para crear una gráfica lineal. 


MODULO 5.3.1 


1I00D>REM REX 
1010 REM MENU 
1020 REM XXXIII 


1030 CLS : PRINT AT 0,12; FLASH 
1; INK 2; "GRAFICAS" 

1040 PRINT “"1)DISPONER PRESENTA 
CION" 

1050 PRINT “""23ENTRAR UALORES" 
105609 PRINT “"SIDIBUJAR GRAFICA" 
1070 PRINT “*'"4) INICIALIZAR" 

10539 PRINT “*"S)FINALIZAR" 

1030 INPUT 2%: CLS 

1100 IF Z%=-="1" THEN 60 SUBG6 1150 
1110 IF Z2%="2" THEN GO SUBE 1350 
1120 IF Z%="3" THEN 60 SUB 1530 
A ¿4$="4" THEN CLEAR : LET 
1140 IF Z%="5" THEN GO TO 1160 
1150 60 TO 1000 

1160 PRINT AT 210,12; FLASH 1; IN 
K 2; "GRAFICAS": INPUT "DESEA GRA 
BART?" ;:0%: IF D%$="3S”" THEN SAVE "G 
RAFICA": INPUT "REBOGINAR, *"" ENT 
ER”"" PARA VERIFICAR." :0% 
: LET 05="S": UERIFY "GRAFICA": 
PRINT 7” PROGRAMA UERIFICACO 


1170 sTOP 


Otro módulo estándar de menú. Observe la línea 1130: Z$ tiene 
que ponerse a “1” después de que la memoria haya sido borrada 
(CLEAR) o se generará un mensaje de error en la línea 113/ ya que 
no existirá Z$. 
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MODULO 5.3.2 


RIZONTAL? “;: INPU 
: LET LH=INT— (2:36 .-H) 
UANTOS INTERUALOS E 


N. El. EJE UERTICALA “5: INPUT 
Us PRÍNT: Ye. LEF.LU=SINT. 11560) 
1230 CLS : PRINT AT 5,3; FLASH 1 


js INK 2; "LOS EJES APARECERAN ASI 


1240 LET UMARE=300: LET HMAREK=30 
0: GO SUB 14530 
1250 INPUT "PUEDE PONER UNA MARC 


A CADA CIERTO NUMERO DE ESP 
ACIOS. ENTRE ESPACIADO HORI 
ZONTAL: "; HMARE 

125609 INPUT "ESPACIADO VERTICAL: ” 
s UMAREK 

1270 CLS : GO SUBG 1450 

1250 INPUT "ES SATISFACTORIO? (S 
“N)"¡OB$: IF GB$="N" THEN CLS : GO 
TO 1130 

122390 INPUT "NOMBRE CE LAS UNICAC 
ES HORIZ.7? ";¿H5 

1300 INPUT "NOMBRE DE LAS UNICAC 
ES VUERT.? ";U 


$ 
1310 INPUT "UALOR HIMIMO DEL (EJE 
VERT.? "¡BASE 


13520 PRINT " "MAXIMO UALOR REPR. 
POR "¿U;*" UNTD.": INPUT "OTRO LIA 
EUR "US LIMIT 


1530 LET VUUAL=<(LIMIT-BASE) -«U 
1340 DIM GH): FOR I=1 TO H: LET 
GT) =-23939: NEXT TI: RETURN 


El propósito de este módulo es permitir al usuario que pueda es- 
pecificar cuántos intervalos habrá en los ejes horizontal y vertical y 
dar nombre a las unidades involucradas. 


Comentario 


Línea 1216. El eje horizontal tendrá 236 pixels de largo. La va- 
riable LH (longitud horizontal) se coloca a 236 dividido por el número 
deseado de intervalos. Generalmente esto dará como resultado el que 
haya algunos intervalos más de los que haya especificado el usuario. 

Línea 122/. Se crea una variable similar para el eje vertical. 

Líneas 124-128. Las unidades quedarán marcadas sobre los 
ejes mediante pequeñas líneas realizadas con la orden DRAW. En 
aras de una mayor claridad algunas de las líneas pueden ser ligera- 
mente más largas, por ejemplo cada 5 unidades puede aparecer una 
más resaltada. Los intervalos en los que sucederá esto se guardan 
en HMARK y VMARK. Estas variables se inicializan a 30) cuando se 
dibujan los ejes por primera vez, de forma que no haya ninguna marca 
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resaltada en ninguno de los dos ejes. Una vez visualizados los ejes 
básicos se invita al usuario a que especifique los intervalos para estas 
marcas más resaltadas y después los ejes vuelven a visualizarse para 
pedir confirmación. 

Líneas 1294-1324. Se piden los nombres de las unidades de am- 
bos ejes. Se supone que las unidades del eje horizontal empiezan 
desde cero, pero para el eje vertical se pide al usuario que especifique 
el valor que corresponde al inicio y el valor que corresponde al final. 
A partir de esto se calcula el valor de una unidad individual sobre el 
eje vertical, y se guarda en la variable VVAL. Las unidades del eje 
horizontal se supone que tienen el valor 1. 

Línea 1349. La tabla G se dimensiona dejándola preparada para 
los posibles elementos H de los datos. 


Comprobación del módulo 5.3.2 


Los ejes no pueden dibujarse hasta que se haya entrado el si- 
guiente módulo, pero insertando una línea temporalmente, 1450 RE- 
TURN, el módulo deberá pedir el número de intervalos, las señales 
que deben remarcarse y el nombre de las unidades. 


MODULO 5.3.3 


14S5S0>REM FEEL 
1450 REM DIBGUJAR EJES 

A OA PONT ar 11 
=1 


14530 FOR TO. 19: PRINT AT.I,i1 
¡ON NEXT II: PRINT AT 20,1;"k", 
1430 FOR I=1 TO 239: PRINMNT 'm'":;: 
NEXT I 


1500 LET £=0: FOR I=114+LH TO 247 
STEP LH: LET C=C+121: PLOT INUERS 
E 21; OUER 1;1,213: DRA OUER 121;0, 
Sl IS AA (C-HMARERIIJ:0' NE 


13108 LET C=0: FOR I=11+LV TO 167 
STEP LU: LET C=C+1: PLOT INUERS 
E 1; OUER 1;13,1: DRAL OVER 1;-S 
-3% (C0-UMARK=INT (C-UMARK)1,0: NE 
xT I 

1520 RETURN 

Este módulo dibuja los ejes de la gráfica. 

Comentario 


Línea 1500. El eje horizontal se rellena con líneas perpendicu- 
lares al mismo, de 5 pixels de largo y separadas LH pixels. A cada 
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intervalo en que deba resaltarse la marca, la línea tiene tres pixels 
más. 
Línea 1514. Un proceso similar se repite para el eje vertical. 


Comprobación del módulo 5.3.3 


Ahora ya debe poder entrar los detalles de las unidades y los 
nombres de las unidades y obtener la visualización de los ejes para 
su confirmación. 


MODULO 5.3.4 


1AIS5SD>RENM RRA 
1360 REM ENTRAR VALORE 
1370 REM AAA 
1350 PRINT “"UALOR DE " 
INPUT Hill: PRINT H1 
1390 PRINT *"“UALOR DE "¡¿UBs; “7? “; 
o TNPOT (111: PRINT LU1 
1400 PRIMNT 7" '"SON CORRECTOS?" : IN 
PUT O%$: 1F O0%$="N" THEN CLS : GO 
TO 1330 
1410 IF GIH11<5:-9939 THEN PRIMT 7 
"ESTA POSICION YA ESTA OCUPADA 


POR EL UALOR *";¿G(H1);"."""DESEA 
REEMPLAZARLO?  (S.-N)": INPUT DE: 
IF O0%$="N" THEN CLS : GO TO 1350 


1420 LET 5G1(H1)=U1: IMPUT "OTRO U 
ALOR7?";0%: IF O$="S" THEN CL5 

GO TO 21350 

1430 RETURN 


Este módulo acepta los datos que se utilizarán para dibujar la 
propia gráfica. 


Comentario 


Línea 1410. Al inicializar la tabla G se ha rellenado con el valor 
-999 para indicar elementos vacíos, ya que el cero no es apropiado por- 
que puede utilizarse frecuentemente. Si se entra un elemento para 
una posición que no contenga -999, se informa al usuario de que ya 
se ha entrado un dato para esta posición. 

Línea 142/. El dato se coloca en la tabla G. No se hace ninguna 
comprobación para ver si cae dentro de los límites especificados para 
la gráfica, aunque se invita al usuario a que confirme el dato en la 
línea 1444. Obsérvese que ya que las unidades sobre el eje horizontal 
se supone que aumentan de uno en uno a partir de 1, la posición de 
un elemento en el eje horizontal es también su posición en G. 
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Comprobación del módulo 5.3.4 


La gráfica todavía no puede dibujarse, pero el módulo debe acep- 
tar datos e informarle si está reescribiendo un dato que ya entró an- 
teriormente. 


MODULO 5.3.5 
1S3OD>REÍNM 2% 
154060 REM CIBGUJAR GRAFICA 
1550 REM. EFEXAERARAE LE RAE AAA 
1569 PRINT AT 0,0;U%;" BASE: “¡BA 
II“ eLIMITE: “¡LIMIT: FOR I=1 TO 
H+T1,31,5 


[ ¿NEXT 1 

7O GO SUE 1450 

1580 FOR I=212 TO H: IF G(I)=-999 
THEN NEXT TI: PRINT AT 10,3; “NO H 
AY DATOS.": STOP 

1599 PLOT INVERSE 1; OUER 1;11+I 
FLH,11+(G(T) -GASE) -VUAL LU 

1600 FOR J=I TO H: IF G(J)=-3939 
THEN 60 TO 1640 

1610 FOR EK=-34+1 TO H 

1620 IF GÍIK)=<=-3999 THEN NEXT K: 1I 
F R>H THEN GO TO 1650 

1630 DRA LH TR-=0J), (GR) -G (Dd) 3 ¿U 
LVALFLU 

1640 MEXT y 

1650 INPUT *""ENTER”"" PARA CONTI 
NUAR";0%: RETURN 


a 
SE . 
LEN H$: PRINT AT 21-LEN 
HS$(TI): 
LO 


Este módulo dibuja la gráfica basándose en los datos suministra- 
dos por el usuario. 


Comentario 


Línea 1566. Los nombres de las unidades para los ejes horizontal 
y vertical se visualizan en los lugares adecuados. 

Línea 1580. Si todavía no hay presente ningún dato, el programa 
informa de ello al usuario. 

Línea 1596. Esta línea quizá sea un poco confusa a primera vista. 
Lo que hace es trazar un punto invisible en el punto donde la gráfica 
debe empezar. 11+I*LH es la posición horizontal correspondiente al 
primer elemento de los datos en la tabla G. G(I)-BASE es el valor de 
un elemento de los datos en relación con el punto inicial del eje ver- 
tical. (G(I)-BASE)/VVAL es el número de unidades que éste debe re- 
presentar sobre el eje vertical. (G(!)-BASE)/VVAL*LV es la altura en 
pixels del punto determinado. 

Líneas 1604/-164/. Se necesitan dos bucles, uno para registrar la 
posición del último punto trazado y el otro para encontrar la siguiente 
posición que debe dibujarse. No hay ninguna necesidad de que el 
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usuario rellene todos los espacios destinados a los datos, por lo que 
el módulo saltará los elementos vacíos de G. Una vez se ha encon- 
trado un dato, la línea 1634 dibuja una línea hasta el punto que co- 
rresponde horizontalmente a la posición del dato de G, teniendo en 
cuenta cualquier espacio vacío que haya entre medio, y verticalmente 
hasta el número de pixels por encima o por debajo del valor previa- 
mente trazado. (G(K)-G (J))/VVAL*LV es directamente equivalente a 
la expresión explicada en la línea 1596. 


Comprobación del módulo 5.3.5 


Si ha entrado algunos datos adecuados, ahora ya podrá dibujar 
una gráfica. Si esto se realiza satistactoriamente el programa ya está 
listo para su utilización. 


Resumen 


Es poco probable que la mayoría de los usuarios del Spectrum 
quieran utilizar un programa como éste cada día. Pero es un ejemplo 
del tipo de herramienta que puede tener cierto valor al añadirlo a una 
biblioteca de programas, sabiendo que un día quizá quiera dibujar una 
gráfica, pero no hasta el punto de que deba escribir un programa es- 
pecial para ello. Quizá también haya observado, al entrar el programa, 
que aunque es un programa bastante rudimentario, el añadirle pe- 
queños toques, como el resaltar algunas marcas en los ejes, la vi- 
sualización de los nombres de las unidades y el punto inicial del eje 
vertical, hacen diferenciar claramente un gráfico que es meramente 
correcto, de uno que es comprensible y correcto. Después de todo, 
¿para qué nos sirve guardar algo si la próxima vez que lo analicemos 
no podemos recordar qué es lo que quería representar o en qué uni- 
dades está representado? 


Posibles mejoras 


1) Un proyecto relativamente sencillo es adaptar el programa 
para que pueda dibujar también gráficos de barras. Las barras 
podrían ser de grueso variable, de una aplicación a otra, por 
lo que el único cambio que debería realizarse en el programa 
sería en el módulo que dibuja la gráfica. Una vez establecido 
el valor para una posición determinada, el módulo tendría que 
dibujar LH líneas hasta la base horizontal, o quizá LH-1 para 
que quede marcada una separación entre las barras. 
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2) También sería de utilidad si el programa pudiera imprimir el 
gráfico sin tener que detener el programa para entrar la orden 
COPY en modo directo. 


5.4 Renumeración 


Aunque he sugerido que la mayoría de los propietarios del Spec- 
trum utilizarán muy poco el último programa, hay que decir lo contrario 
para este programa, ya que probablemente se utilizará más que cual- 
quier otro de nuestra biblioteca de programas. Para aquellos que no 
están familiarizados con la idea, un programa de renumeración es uno 
que cambia los números de línea irregulares que van apareciendo 
cuando se escriben la mayoría de los programas, por una estructura 
regular como la que se ve en la mayoría de los programas de este 
libro. 

Esto no es una tarea tan difícil como pueda parecer. Los números 
de línea están guardados al principio de cada línea en dos bytes 
— de la misma forma que hemos guardado valores mediante dos ca- 
racteres en cadena. Todo lo que hay que hacer es encontrar la po- 
sición del número de línea en la que empieza el programa, colocar 
mediante POKE en las dos posiciones el número de línea con el que 
se quiere empezar, después seguir a través de los números de línea, 
colocando mediante POKE números que aumenten con intervalos re- 
gulares. Puede hacerse esto en tres o cuatro líneas. 

El problema es que la renumeración no se acaba aquí debido a 
que hay que tener en cuenta los GOTO y los GOSUB. Repartidos a 
lo largo del programa aparecerán referencias a los números de línea 
originales. Si se cambian estos números de línea, entonces se pro- 
duciría el caos. Por lo tanto tendremos que renumerar los GOTO y los 
GOSUB para que coincidan con los números de línea cambiados. 
Esto no es tan fácil. La forma en que los destinos del GOTO y del 
GOSUB se guardan es considerablemente distinta y más compleja 
que la forma en que se guardan los números de línea. Ya hemos in- 
dicado anteriormente que los valores numéricos generalmente re- 
quieren cinco bytes de la memoria del Spectrum para abarcar el am- 
plio rango de números que el Spectrum puede expresar con exactitud. 
Desafortunadamente, en algunos aspectos los destinos del GOTO y 
del GOSUB utilizan esta forma más compleja de almacenaje, aunque 
los 9999 números de línea posibles realmente tan sólo requieren dos 
caracteres para ser guardados. 

En algunos aspectos esto aumenta la flexibilidad de la máquina 
—ya que el destino se considera como un número real, puede expre- 
sarse en cualquiera de las formas en que el Spectrum reconocerá un 
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número. Por ejemplo, 1006+X,2*A/Y, VAL“250)” serían todos des- 
tinos válidos con tal de que sus resultados estuvieran comprendidos 
entre 1 y 9999. Hay algunos trucos interesantes en el BASIC de Sin- 
clair que dependen de esta capacidad. Sin embargo, a la hora de la 
renumeración, la representación con cinco bytes es un problema. El 
problema todavía empeora por el hecho de que el número del destino, 
al igual que cualquier número real visualizado en una línea de pro- 
grama, está de hecho registrado dos veces en la línea, una vez como 
un conjunto de caracteres para que usted los vea y una segunda vez 
en la forma de cinco bytes. 

La conclusión de todo esto es que no sólo tenemos que renu- 
merar la línea, sino que también tenemos que saber si hay algún 
GOTO o GOSUB que esté señalando a la línea que se está renu- 
merando. Si es así tendremos que cambiar dos números más me- 
diante métodos distintos. 

Dentro de ciertos límites esto es exactamente lo que hace este 
pequeño programa, y aunque de ningún modo será tan rápido y con- 
veniente como un buen programa en código máquina para conseguir 
el mismo resultado, mezclado con sus propios programas hará un tra- 
bajo adecuado hasta que se decida a comprar un programa comercial 
mucho más caro o escriba uno usted mismo. 


39953 STOP 

39S9>LET TñB="": LET Xx=2353$S 

393960 CEF FN At(xX)=PEER xX+256x*PEEF 
(X+11 

39961 DEF FN 6151) =256xPEEK 3+FEEK 
(35+11 

2962 LET S=FN AX 

39963 LET LIMEA=FN B1(3): IF LINEA 

>? =39953 THEN 560 TO 393976 

2954 LET LONG=FN A(S+21 

29565 IF PEER. (344) =234d THEN GO T 

On 39569 

39956 FOR I=3S+4 TO 3+LONG+2 

2399587 IF PEER I=238 OR PEER I=237 
THEN 60 SUB 23971 

39568 MEXT I 

2959 LET 353=34+LONG+4 

2970 60 TO 29963 

2971 IF PEER. (145) =14 THEN 60 TO 


3374 
3972 PRINT "COMANDO NO ESTANDAR, 
LINER "¡LINEA 
9973 STOP 
39974 LET T%=T%+S5TRS% TI+CHRS PEER 
(141) + CHAS PEER (142) +CHR% PEER 
(I+S) +FCHRA PEER (I+4) 
3975 RETURN 
29975 LET EGASE=1000 LET xXx=23635 


29978 LET LINEA=FN 615): IF LINEA 


3979 LET LOMG=FN RIS+21 

39590 FOR I=1 TO LEN T% STEP 3Y 
3951 1F UAL T%fíI+5 TO 145) =LINER 
THEN GO SUB 9939390 
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293932 NEXT I 

393353 PORE S,INT— (BASE-256) 
o S5+1,BASE-2556% INT (BASE 
E 

2955 LET EASE=BASE+10 

39956 LET S=S+LONG+4 

9393357 GO TO 399785 

3930 FOR J=1 TO 4 

3931 PORKE (VAL TS$(I TO I+4)+33),C 
OCE (STR%A BASE) (.J) 

33932 NEXT y 

39335 LET BYTE1=125+INT (LN BASE-+ 
LN 24+1) 

23994 LET BYTES=BASEx5653367 (2% (BY 
TE1-123)) 

39935 LET MEMOR=UAL T%(TI TO I+4) 
3939396 POKÉ MEMOR+6,BYTE1 

aa Oe MEMOR+7, INT (BYTE2,-256 
399338 PORKE MEMOR+S5S,BEBYTE2-256% INT 
(BYTE2,/2568) 

2939 RETURN 


El programa no está escrito en módulos ya que el objetivo es 
colocar el máximo posible en el menor número de líneas posible. Una 
vez haya comprendido el método, quizá desee acortar el programa 
utilizando líneas multisentencia. 


Comentario 


Línea 9958. Esta línea nos asegura que la ejecución normal de 
la parte principal del programa que se está renumerando no llegue 
nunca a la rutina de renumeración. 

Línea 9959. T$ será utilizado para registrar cada aparición de un 
GOTO o un GOSUB en el programa, junto con su localización dentro 
de la memoria del Spectrum. X es la dirección en la memoria del Spec- 
trum de la variable del sistema «PROG», que consiste en dos bytes 
que contienen la dirección inicial en memoria del programa actual en 
BASIC. 

Línea 9966. Esta función debe considerarse como la dirección 
inicial del programa en BASIC actual. Obsérvese que cuando el Spec- 
trum trabaja para sí, guarda los números de dos bytes de atrás hacia 
adelante — viene primero el menos significativo de los dos bytes. 

Línea 9961. Para acabarle de confundir, los números de línea, 
que también tienen dos bytes, están guardados en el orden opuesto. 
Esta función convertirá el número de línea de dos bytes en una forma 
de representación más reconocible. 

Línea 9962. En S se coloca la dirección del inicio del programa. 

Línea 9963. En LINEA se coloca el número de línea actual, en- 
contrado en este punto. Cuando la rutina ha pasado a través del pro- 
grama hasta el punto donde se encuentra la rutina de renumeración, 
entonces esta sección del programa no se ejecuta. 
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Línea 9964. Los dos bytes que van a continuación del número de 
línea en cualquier línea contienen la longitud de la línea. Este valor 
puede utilizarse para pasar fácilmente hasta el principio de la línea 
siguiente. 

Línea 9965. Las líneas que empiezan por REM (CHR$234) no 
son examinadas para buscar los GOTO y los GOSUB. Esto significa 
que si se tiene un GOTO calculado de la forma 14PM*X, que el pro- 
grama no podría tratar, tan sólo hay que colocar temporalmente un 
REM al principio de la línea y no causará problemas. 

Líneas 9966-9968. La línea se examina byte a byte buscando los 
caracteres que representan el GOTO y el GOSUB (códigos 236 y 237 
respectivamente). 

Líneas 9969-9976. Si no se encuentra nada en la línea, la rutina 
pasa al principio de la línea siguiente. 

Líneas 9971-9973. Si la ejecución ha llegado hasta este punto es 
debido a que se ha encontrado un carácter con el código 236 o 237 
en esta línea. Estas líneas comprueban que se trata de un GOTO o 
un GOSUB normal, que la rutina puede tratar. Esto se hace teniendo 
en cuenta que cualquier destino estará representado visiblemente me- 
diante cuatro dígitos, es decir, GOTO 1440, GOTO HN0N1. Si esto es 
cierto, entonces el quinto carácter después del GOTO será un 14, que 
indica al Spectrum que a continuación hay un número de cinco bytes 
(la segunda de las dos representaciones del destino). Si éste no es 
el caso, la rutina se detiene. En muy pocas ocasiones la rutina se 
encontrará con bytes que contienen 236 o 237 y que no tienen nada 
que ver con un GOTO o un GOSUB y se detendrá. Una vez identifi- 
cado el problema, la única solución es colocar temporalmente un REM 
al principio de la línea causante de los problemas. 

Líneas 9974-9975. Si la rutina descubre un GOTO o un GOSUB 
estándar, guarda la dirección en T$, junto con los cuatro bytes que 
constituyen el destino. 

Línea 9976. Cuando la rutina alcanza este punto, ya habrá eje- 
cutado el programa una vez, guardando la posición de cada GOTO y 
cada GOSUB y las líneas a las que señalan. Ahora el programa ini- 
cializa una variable, BASE, que se utilizará como número de la pri- 
mera línea. 

Líneas 9977-9978. La rutina empieza de nuevo por el principio 
del programa y empieza a convertir los números de línea. Cuando se 
llegue a la línea 9958, la renumeración estará completa. 

Líneas 9980-9982. Una vez establecido el número de línea, la 
rutina busca en T$ si se trata de una línea a la que apunta en algún 
lugar un GOTO o un GOSUB. Si así es, procede a renumerar el GOTO 
o el GOSUB en la forma explicada a continuación. 

Líneas 9983-9987. El valor de BASE se coloca en la posición ocu- 
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pada por el antiguo número de línea. Se incrementa en 1 unidades 
la variable BASE y la rutina pasa al siguiente número de línea. 

Líneas 999-9992. Si hay que renumerar un GOTO o un GOSUB, 
la rutina coloca primeramente los caracteres que constituyen la base 
en los cuatro bytes que hay a continuación del GOTO o del GOSUB. 

Líneas 9993-9998. En esta sección pasamos a manipular la re- 
presentación compleja mediante cinco bytes de los números que uti- 
liza el Spectrum. Esta tarea se simplifica por el hecho de que tratamos 
únicamente con números positivos comprendidos entre 1 y 9999. Esto 
significa que tan sólo tenemos que tratar con los tres primeros bytes 
de los cinco. Hay dos tareas básicas. La primera es determinar el 
exponente del destino, una vez renumerado, cuando está expresado 
en binario —es decir, el número de lugares antes del punto decimal 
cuando el número está escrito en binario. El primer byte de cualquier 
número positivo guardado en el Spectrum será 128 más este expo- 
nente, y este valor se crea en la línea 9993. 

Los dos bytes siguientes contienen la representación binaria del 
destino. Como ya tenemos el exponente que nos indica cuántos ca- 
racteres hay en este número binario, podemos guardar el número con 
su primer “1” en la primera de las ocho posiciones del byte siguiente. 
Así, si la representación binaria fuera 141410101f, esto se guardaría 
en los dos bytes que hay a continuación del byte del exponente como 
1010101010000000 y en el byte del exponente se reflejaría el hecho 
de que tan sólo son significativos los diez primeros dígitos. 

Nuestra tarea final es transformar el primer “1” de nuestro nú- 
mero binario en un cero, para indicar al Spectrum que se trata de un 
número positivo. El “1” se restablecerá cuando se evalúe el número. 

El número necesario se crea en la línea 9994, sin ninguna refe- 
rencia evidente a los números binarios. El exponente y el destino, una 
vez traducido, se colocan en los tres primeros bytes de la represen- 
tación de cinco bytes. A continuación la rutina continúa con la renu- 
meración del resto del programa. 


Comprobación de 5.4 


La primera regla que debe observarse cuando se comprueba una 
rutina como ésta es grabarla antes de intentar utilizarla. Los progra- 
mas que cambian valores de la memoria del Spectrum pueden ser 
incorrectos y hacer que se pierda la máquina. Esto no tiene ninguna 
importancia para el Spectrum, pero puede perder el programa. Una 
vez guardada la rutina de renumeración, tendrá que darle algo sobre 
lo que trabajar; esto tan sólo tiene que ser un programa de tres líneas 
como un GOTO 605, 2 REM, 5 REM. Ahora cambie la segunda sen- 
tencia en la línea 9963 por IF LINEA=9958 THEN STOP. Ejecute el 
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programa, empezando en 9959. Cuando el programa se detenga, vi- 
sualice T$. Deberá ser algo como: — 237590M05. 

Si la comprobación es satisfactoria, corrija la línea 9963 y ejecute 
de nuevo el programa desde 9959. Esta vez deberá renumerar las 
líneas. Visualice BYTE 1 y BYTE 2. Deberán ser 138 y 65284 res- 
pectivamente. Si el programa no funciona hasta este punto, intente 
insertar algunas sentencias de STOP apropiadas en varios puntos 
para comprobar que el programa va siguiendo el proceso descrito an- 
teriormente. 


Resumen 


Si puede escribir una rutina como ésta en código máquina, há- 
galo. Será cien veces más rápida. Pero no se quede con la idea de 
que el manipular cosas como la representación en cinco bytes de Sin- 
clair no puede hacerse en BASIC. El intentarlo con código máquina 
puede dar como resultado algunos programas que no hagan casi 
nada aunque lo hagan muy rápido. Por lo tanto asegúrese de que 
realmente quiere dejar la comodidad del BASIC para conseguir sus 
objetivos. Quien sabe, quizá dentro de diez años la única diferencia 
entre un programa BASIC y una versión en código máquina sea una 
milésima de segundo. 


Posibles mejoras 


1) A mí me gustan los programas numerados empezando en 
1004 y de diez en diez, quizás a usted no. ¿Por qué no añadir 
un sencillo mecanismo que permita al usuario especificar la 
base y el espaciado entre líneas? 

Vea hasta dónde puede llegar para simplificar la rutina, utili- 
zando funciones definidas. 

El Spectrum puede tratar GOTOSs que apuntan a una línea no 
existente. Esta rutina no renumerará GOTOSs. Añada una fun- 
ción al programa que recorra los números de línea para com- 
probar que exista un destino para cada GOTO o GOSUB. 


N 
o” 


2 


5.5 Archivo ll 


Con Archivo ll volvemos al tema con el que iniciamos este libro, 
es decir, el archivado flexible de grandes cantidades de información. 
En el siguiente programa veremos una nueva aplicación de los mé- 
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todos discutidos al principio, en el capítulo 1, y veremos de nuevo la 
potencia de nuestro planteo modular. La numeración del programa es 
principalmente la del programa original Archivo y, a diferencia de otros 
programas de este libro, las modificaciones realizadas no han sido 
renumeradas. Esto se ha hecho para que usted pueda identificar 
exactamente dónde se han realizado cambios o se han añadido cosas 
con respecto al programa original y por lo tanto, excepto en el caso 
de los comentarios sobre los cambios realizados, podrá referirse a los 
comentarios de la versión original. 

La nueva aplicación para la que se ha realizado este programa 
es la de una base de datos. Una base de datos, en su forma más 
sencilla, es una colección de información, preferiblemente que incor- 
pore formas de añadir datos al stock actual y formas de descubrir lo 
que hay allí guardado. A diferencia de la clara y pulida estructura de 
los archivos creados por el programa original Archivo, la base de da- 
tos necesita poder aceptar información cuya estructura no puede pre- 
verse tan fácilmente. La estructura puede variar mucho de un registro 
a otro. La base de datos suele utilizar un método más sofisticado de 
búsqueda, permitiendo al usuario especificar un cierto número de ca- 
racterísticas que debe reunir el registro buscado. Aunque éstas son 
especificaciones bastante duras, debido a la potencia del planteo mo- 
dular a la hora de escribir programas, este programa necesitó unas 
tres horas para ser escrito, partiendo de la idea original, hasta llegar 
a la versión terminada. A continuación los módulos están únicamente 
comentados con respecto a lo que difieren de forma significativa del 
módulo equivalente de Archivo. Para entrar el programa aconsejamos 
al lector que cargue primeramente el programa Archivo original y tra- 
baje sobre éste, modificándolo de acuerdo con el listado de este pro- 
grama. 


MODULO 5.5.1 

1000> PAPER “: CLS : BORDER 7%: I 

NFR 6: PAPER 0: PRINT PAPER 2; 
ARCH IVD 2% 

oO PRINT 7 "FUNCIONES DISPONIBL 

o. 

1020 PRINT 7" 17 CREAR  NUECUO 

ARCHIVO" 

10:30 PRINT -“* S23ENTRAR INFOR 

MACION:” 

10490 PRINT 7" 31 BUSCAR-WISUA 

LIZAR-CAMBIAR” 

1043 PRINT 7” 413 NOMBRES CE E 

TIQUETAS" 

10530 PRINT ““ 5) FINALIZAR" 


1050 PRINT *“ "ENTRE POR FAUDR EL 
QUE REQUIERA." 

1070 INPUT 2% 

1050 CLS 

192390 IF Z%="1" THEN GO SUB 1210 


$="2*" THEN 50 SUB 1440 
$="3" THEN GO SUB 2150 
$="4'" THEN GO SU5 3400 
$="5" THEN GO SUB 1150 


Tm) O 1000 
PRINT ATC 10,3; INK 7; PAPER 
"SISTEMA DE ARCHIVO CERRACO" 
BEEP 2,2 

INPUT "Ha entrado nueva inf 
ion que desee guardar? (S.-N 
IF OS$="nN" THEN STOP 


IRRIDERRRRRRP 


LvVego pluilse CA 
3 VERIFICAR": FP 
REOHTIVUO": STOP 


Cróertoepe PperererrRER 
a a lb 


6,0 re 
MC 20 AMARO 


El módulo está modificado en las líneas 145 y 1115 para tener 


en cuenta una nueva función, que se explicará más adelante. 


MODULO 5.5.2 


a 
2 
m 
pd 


EXAFALIEAAAER 


e 


LR 
R 
EXA 


0000608 
O 
H 
E 

DO Hor 


=CHR%A =2+2HRS% 
FOCODE VHRELÍZ=S-— 
ya O C+CODCE 


Das Hx 
LODO R+ Pa 
DO BO0+H* 


Doe Dir RIM + 


E- ZIP ZA 
$ 


=M-10- + Dx 
D 0 REN 


D DEF 


“o 
1 


Fr 
m 
— 
¿7 METODO Doe Ho 
4 
O 
—Á 


CHAR 0+CHRA% 1+CHRS Q 


ErR+PrMeRPRORERARRREP 
E 0 AR) — Cd + Cd CO TO MR 
URTIG0-0+ JOIN ra 

o 

[a] 

D 

m 


Una gran parte de este módulo se ha borrado para tener en 
cuenta el hecho de que no existirá una estructura regular para los 
nombres de los elementos de cada registro. Sin embargo existirá la 
posibilidad de asociar nombres a los elementos y estos nombres se 


guardarán en la tabla A$ 


MODULO 5.5.3 

27 50>REM ESFFRFARAEFRE LE ELA AEREAS 
2760 REM SUBRUTIMAS FUNCIONALES 
2770 REM RARA 
27530 INPUT 05 

27585 IF LEN 0%4>1 THEN RANDOMIZE 
: 1F OS (LEN O0%4-1)="8" THEN LET € 
$=0%$! TO LEN G%-11)+CHR% (UAL Gt 
LEN 0%) 

2787 IF LEN 0$>2 THEN RANDOMIZE 
: IF Q%$( (LEN 0O0%-2)="8H8" THEN LET 0 
$=50%$f( TO LEN O0%$-2)+CHR% (UAL 051 
LEN 0O%-1 TO 3) 
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27320 LET 0%=CHR% (LEN 0%$+1) +05% 
2500 RETURN 
2510 PRINT AS(I,2 TO CODE AS(I,1 


: , 
2520 RETURN 
2550 1F FN As) (2 TO 3) =" 3%" THEN 
RETURN 
25850 IF FN AL) (LEN FN AS$5C)-1)=" 
HH" THEN PRINT As (CODE FN ARCIILE 
N FN AACI)1);": 


()-2%(FN ASC) (LEN FN AS0)-1)="4 
13 

550 LET E=C+CODE 6% (€) 

5320 60 TO 2550 


La pequeña rutina de la línea 2784 está modificada para que 
pueda reconocer números de la etiqueta precedidos por + y convertir 
el número que va a continuación en un único carácter que corres- 
ponda a este código. La rutina de la línea 2854 está cambiada para 
que visualice elementos hasta que detecte el simbolo *“*” que indica 
el final. Las etiquetas apropiadas se visualizan en la línea 286f, si está 
presente el símbolo “++”. 


MODULO 5.5.4 


14 S3O0>REM RN AAAAAIAAAAAAAAAAAAAZA 
1440 REM ENTRADA NORMAL 

1450 REM RRA 
1450 LET RS="" 


1470 PRINT PAPER 2;" EN 
TRADAS Al 

1430 PRINT *“COMANCOS CISPONIBGLE 
EAS 

14390 PRINT “">ENTRAR ELEMENTO ES 
AA PARA SALI 


153006 PRINT CERRAR A AA AAA AAA 
XEFEXAE EA AAA 
1510 PRINT "LONGITUC ARCHIVO: ";P 


“Li 7” "5 LEM B$ 

1340 60 SUB 2750 

15509 IF OS[(LEN 5-1) ="8 "0 THEN PR 
INT ARSICODE O%5 (LEN OB), 

1550 PRINT 0%(2 TO LEN bslozco $1 
LEN G0$-11="8H'"")37 

15390 IF LEN O%$>=4 THEN RANCOMIZE 
Ei IF 05412 TO d41="2Z22Z2" THEN RETU 
As 

1600 LET R%5=R%+0% 

1610 1F 05$51(2)<>"x" THEN GO TO 15 


1630 60 SUB 1660 
1640 60 TO 1440 


En lugar de pedir un número especificado de elementos, ahora 
este módulo acepta elementos hasta que se encuentra con uno que 
consiste en un **”, el cual es interpretado como indicador del final del 
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registro. Las líneas 1554 y 1586 se refieren al método de etiquetado 
del elemento. Para hacerlo, el usuario añade “+” y a continuación un 
número comprendido entre 1 y 5f al final del elemento. Esto se in- 
terpreta como indicativo de un número de un elemento de la tabla A$ 
y la línea correspondiente de A$ se visualiza mediante la línea 1554 
si se detecta el 4. La línea 158/ asegura que no se visualice el nú- 


mero. 


MODULO 5.5.5 


16ESUO>REM FERRARI AAA AAA 
1650 REM PONER CATOS EN ARCHIVO 
1670 REM RX 
1650 IF P+LEN RS%-1<LEN B% THEN G 
O TO 1730 

1630 PRINT AT 214,10, "ARCHIVO LLE 


1700 PRINT “*“ "Pulsar AE EE A 
ecla para" “'"continua 

1710 PRUSE Y 

1720 RETURN 

1730 LET POTEN=<INT (LN  (N-1) «LN 

2) 

1740 LET S=2+TPOTEN 

1730 LET TG%=R5(2 TO CODE R3(11) 

1750 FOR K=POTEN-1 TO QU STEP -1 

1770 LET E=sFN A) 

1750 LET Us=FN A$() (2 TO ) 

1790 LET 3=3+(27PK)I *(TH%>US) - (27H) 
£(TS$<UG) 

1810 IF S>3N-1 THEN LET S=NM-1 

152 IF 3<2 THEN LET S=2 


15:30 NEXT K 

1540 LET E=sFN ACI 

1550 LET Us$=FN ASt1 (2 TO ) 
1560 IF T%$<U%$% THEN LET S5=5S-1 
1570 LET 6G%5$(P TO P+LEN RA-11=FS$ 
13530 LET N=N+1 

15390 LET YS%=r4$1(1 TO 2%5)+CHRS IN 
T (P+ 2351 +CHRSE (P-256% INT (Pr235 
1]+44S$ (2% (S+1) -1 TO J 

1900 LET P=P+LEN R$ 

1310 RETURN 


Aquí no se ha hecho ningún cambio. 


2200 LET 35 


2220 PRINT *“*"COMANCOS DISPONIBL 
2230 PRINT ">SENTRAR ELEMENTO PAR 


A LA" BIISQUEDA NORMAL" “'">PRECE 
DER CON *""353*"" PARA LA""" BUSQU 
EDA ESPECIAL"**">PRECEDER CON *“**“T 
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II"" PARA BUSCAR""*" POR EL PRIME 
R CARACTER DEL""“" REGISTRO" "">'"" 
ENTER"" PARA OBTENER EL PRIMER” * 
"* ELEMENTO DEL ARCHIUO" 

2235 PRINT. >“ "MMMM" PARA BUSQU 
EDA MULTIPLE" 

2240 PRINT "Xixririrrriririri2xi2:+* 
EXA 

2230 PRINT "ENTRAR ELEMENTO A 


2280 GO 5UB 2730 


2230 IF LEN Sá%=1 THEN GO TO 2510 

25300 LET EC=FN A“Í) 

10 IF LEN 3%<5S THEN GO TO 24530 
11 1F 39412 TO 4) <>"MHM" THEN G 

TO 2320 

12 PRINT "NUMERO DE ELEMENTOS 

E BUSQUEDA? ";: INPUT BUSQUEDA: 

PRINT BUSQUEDA: DIM MS (BUSQUEDA 
¿10): FOR K=1 TO BÚSQUEDA: PRINT 
"ELEMENTO DE BUSQUEDA ";¿K;”": ; 
: GO SUB 2750: PRINT 05$4(2 TO ): 

LET MA (RI =0%: NEXT EH 

2313>LET 31=3 

2314 FOR K=1 TO BUSCQUECA: LET =S% 
= "MMMM" +MS1(K,= TO CODE MSIK,1)): 
¿6D SUB 2240: IF C4=080 THEN RETUR 


IF S5=5S1 THEM NEXT K: GO TO 


GO TÓ 2313 
IF 3912 TO 4)< 


3 TOD. N 


— 
rl 


PLOT TA] 


+07400-40001P20-MerPRr 


“LIL” THEN 6 


st 


) 
39$(5) THEN GO TO 


RETURN 

IF S$(2 TO 43 <>"S55S5" THEN G 
2430 

GO SUB 22920 

IF C4=1 THEN 60 TO 2510 
2420 RETURN 

2430 IF FN A$1(1)=5S% THEN GO TO 25 


2450 IF FN A5()=CHA% 24+2HR53 255 
THEN RETURN 
245609 LET C=C+CODE B%1(C) 


IMNOMNO Miu bÓn 
1) 0) 09 MO (3 6 4 Cd 


600660-00808080000n 
Ml 
m 
=l 


2470 IF 6% 1C-1) <>"%" THEN GO TO 
24:30 

2450 LET 3=-=3+4+1 

2490 LET C=FN AL) 

2500 0 TO 2430 

2510 LET C=FN A“Í) 

2520 LET Cd=0 

25530 IF FN A) =CHR%S 2+4CHOR%s 235 
THEN RETURN 

2540 CLS 

25509 PRINT "REGISTRO *";35-1;":-" 


2550 GO SUB 2550 

LET 5=3+1 

PRINT AT 14,0; PAPER 2;" 
BUSQUEDA ES 

PRINT "COMANDOS DISPONIBLES 


PRINT “>""ENTER”"" PARA UISU 
ALEZAR EL"*“ STGUIENMTE ELEMENTO" 


cnn dl 
0-J 0 


mo 
Ú 
00 


-- 


Mm 

m0 
o 
60 
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CU 3“ ozZzZ"" PARA ABANDONAR LA FUN 


CION ">" "ARA" PARA MODIFICAR" 
APA "ELE" .. PARA CONTIMUAR LA" 4 700 E 
DUSQUECA”" 


2610 INPUT PS 
2620 CLS5S 


2625 IF LEN S%>=4 THEN RANCOMIZE 
: IF PA="CCC” AND S$(2 TO 4d)="M 

MM” THEN GO TO 2313 

2630 IF P%="E£CC" THEN GO TO 2300 

2649 IF P%4="" THEN GO TO 2510 

2659 IF P%<>"ARA" THEN GO TO 271 


Ú 
oí 
m- 
a) 


FU 0D 0d o Y 
Rome 
00605 


GO SUB 192930 

IF P="22Z22" THEM RETURN 
IF P$="ARA" THEN RETURN 
CLS 

GO TO 2260 


Entre las líneas 2311 y 2318 se ha añadido una pequeña rutina 
que acepta un cierto número de elementos que deben guardarse, y 
después llama al módulo de búsqueda especial para que busque su- 
cesivamente cada uno de los elementos. Si todas las combinaciones 
de caracteres especificadas se encuentran dentro de un registro, en- 
tonces se visualiza este registro. Obsérvese también la pequeña mo- 
dificación del menú en 2235 y de la orden de continuación en 2625. 


Comprobación del módulo 5.5.6 


Ahora deberá ser capaz de visualizar elementos, aunque todavía 
no puede utilizar la búsqueda especial ni la búsqueda múltiple. Si es- 
pecifica números de etiqueta en la entrada, el elemento será visuali- 


6. 


zado mediante 1/ caracteres y precedido por un ““:”. 


MODULO 5.5.7 

2910>REM XA AAIAAAAAIAAAAAAA 

2920 REM BUSQUEDA ESPECIAL 

2940 LET Cd¿=ug ; 

23950 FOR H=S TO M-1 

29560 LET 3=H 

2970 LET EC=sFN Ad) 

2950 LET C1=t 

35000 LET C1=C1+EODE EH (C1) 

3010 IF B51(C1-1)<>"%" THEN GO TO 
35000 

3020 FOR (1I=C0C4+1 TO C1-LEN S5%4+% 

3030 IF B6%()J TO J+LEN S%-5) <>55%5( 

3. TO 7 THEN o TO 3060 


EG 


3040 LET Cd= 
3050 RETURN 
50569 MNEXT 1 
3070 NEXT H 
35050 LET Cd=0 
5030 RETURN 


169 


Se ha realizado un pequeño cambio en este módulo para tener 
en cuenta la falta de estructura regular de un registro. 


Comprobación del módulo 5.5.7 


Ahora ya podrá realizar búsquedas para combinaciones de ca- 
racteres —elemento precedido por SSS—. También podrá entrar en 
el módulo de búsqueda múltiple. 


MODULO 5.5.8 

1320 >REM REFIERE AAA 

1350 REM CAMBIAR REGISTRO 

1940 REN XARXA AAA 

1950 LET 3=3-1 

123560 LET C=FM A“) 

1970 LET RSi="" 

1950 PRINT "REGISTRO ";S-1;":-” 

2000 IF FN As) (2) ="%" THEN LE 

RE=RGAG4+ECHRA 242" GO SUB 3130: G 

O SUE 1560: RETURN 

a Ei FN ABS) (2 TO LEN FN A 
(3) 1); 

2015 IF FN A$() (LEN FN AS()-1)=" 

34" THEN PRINT COCE (FN A%() (LE 


FN A$(1)3)3) 
2017 IF FN ASC) (LEN FN AsAC)-1)3 <> 
"24" THEN PRINT FN AS() (LEN FN AS 


2020 PRINT AT 16,0; PAPER 2; 
MODIFICAR sl 
2030 PRINT "COMANDOS DISPOMIBLES 


2040 PRINT ">" "ENTER"" NO MODIFI 

CAR" * "Sy" "zzz" " ELIMINA "TODO EL R 

EGISTRO""">ELEMENTO CAMBIADO" ""> 

NUEVO ELEMENTO ACABADO EN "30" 

2050 60 SUB 2750 

20560 IF LEN O$=1 OR GO%5(LEN 0D) =" 
*" THEN LET R=RA+FN ASC) 

2070 LET EC=C4+CODE B541(C) 

2050 CLS 

2090 IF LEN 0$=1 THEN GO TO 2000 

2100 IF 045412 TO 3)="222" THEN GO 
3130: RETURN 

05 IF OS$(LEN 0%) ="x" THEN LET 
=0$(2 TO LEN 0%-1): GO SUB 2785 


VD LET RA4=R+%$+05$ 

900 TO 2000 

0 GO SUB 3130 

YD 1F 0$5(2 TO 3)="2Z22Z" THEN RET 
pes) 

[Ea] 


GO SUB 1660 
RETURN 


Líneas 2415-2017. Reflejan la necesidad de convertir un número 
de etiqueta, si es que está presente, partiendo del carácter de código 
correspondiente, en el número que representa. Si no hay número de 
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etiqueta, se visualizan los dos últimos caracteres del elemento. El 
menú y las líneas subsiguientes están modificadas para tener en 
cuenta a los elementos con un elemento terminal **” —cuando se 
entra uno de éstos, se guarda en el registro, a continuación del ele- 
mento que se está visualizando en la parte superior de la pantalla. 
Esto significa que no puede insertarse un nuevo elemento al principio 
de un registro. 


MODULO 5.5.9 

EEFAAA AAA 
ARCHIVO 
HKEFEAHAAEAE AA 


y 
p 
p 
G 
2 
m 
La 
Po +xT* 
"De Doe 
Rk Hok 


POR Mio Mor 
On m1 00 o O oe 


un 
Q 
r 
m 
AH 
00000 O o 
+0000 PO r*000DZ*Dx* 
| 


CODE B54(C1) 
<>" THEN GO TO 


IPENDIPIDIAIAIATOLA 
NERRRERER 
OPA 
Q 
Fr 
m 
Á 


On 


EN 65-11 STEP D 
<DESPL THEN LE 


E 

1 

+1 

TO I+DESPL-1) 
C+DESPL-1)=3% 

32530 LET C=C 


SPL 
32580 NEXT I 
3270 LET pd +00 A TO 2% 1(1S-1))+45( 
2% (5+1)-1 TO 
32530 FOR I=1 to N-1 
32390 LET 3=I 
3500 LET C=FN A() 
3510 1F C<=C3 THEN GO TO 3350 
332 LET C=C-C2 
3530 LET Y%(2%1I-1)=CHR% INT (Cr2 


3540 LET Y%(2%TI1) =CHR%”- (C-256% INT 
(1C:256)) 

3350 NEXT I 

3560 LET P=P-C2 

3370 LET N=N-1 

3350 RETURN 


3230 LET 3 
3240 LET 65% 


e. 11 
O PARAR 


MmA-=1 1 


Se han realizado cambios en la línea 319M y se ha borrado la 
línea 3170. 


Comprobación del módulo 5.5.9 


La función de modificación ahora debe ser totalmente operativa, 
permitiendo borrados, alteraciones e inserciones. 
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MODULO 5.5.10 


3SADO>)REM AXAEXAEXARAAAAAAAAAAAAAAAA 
35410 REM ETIQUETAS DE ELEMENTO 
3420 REM AXEL KA AAA 
34:39 FOR 1=1 TO SO STEP 10 

3440 CLS FOR J=I TO I+39 

3450 PRINT J;")3";AS$(J) 


3970 PRINT **”“ "DORDEMES: ” 

3450 PRINT “">2Z22=SALIR" 

3430 PRINT ">ITII=ELEMENTO" 

354395 PRINT "3NNN=PAGIMNA SIGUIENT 


3500 INPUT 0%: IF D0%$="222" THEN 

RETURN 

3505 IF O%="NNN" THEN CLS : NEXT 
I: RETURN 

35510 IF GQO%4=" III" THEN INPUT "NUM 

ERO? "; TIPO: INPUT "ETIQUETA DE 

ELEMENTO? *“:¿0O%: LET ASCTIPO)=<=0$: 
CL5S : GO TO S3dda 

3520 GO TO 3500 


Este pequeño módulo permite al usuario entrar etiquetas para los 
elementos situados en las posiciones especificadas de la tabla A$: no 
se ha realizado una previsión específica para el borrado, que no obs- 
tante puede conseguirse fácilmente especificando la línea correspon- 
diente y entrando un texto vacío como su nuevo contenido. 


Comprobación del módulo 5.5.10 


Si previamente se han especificado números de etiqueta para al- 
gunos de los elementos, ahora podrá suministrar algún contenido para 
estas etiquetas y verlas visualizadas delante de los elementos co- 
rrespondientes mediante el módulo de visualización. 


Resumen 


Sería una locura sugerir que un programa como éste es tan útil 
y tan rápido como las bases de datos en código máquina, capaces 
de realizar una búsqueda completa en segundos. No obstante, el pro- 
grama funciona y tiene características superiores a algunos progra- 
mas de bases de datos baratos que se venden para microordena- 
dores personales. La búsqueda múltiple es un lujo que consume 
tiempo y que probablemente no deseará utilizar muy a menudo sobre 
archivos grandes. Quizá, debido a necesidades específicas propias, 
utilice esta versión de Archivo con más frecuencia que la original. 

La lección realmente interesante que hay que sacar de esto es 
que una nueva aplicación de cierta importancia se ha convertido en 
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algo muy sencillo mediante el planteo modular que nos ha permitido 
identificar claramente las áreas que necesitaban modificación. 


Posibles mejoras 


1) Una vez advertidos con respecto a los problemas del código 
máquina hay que admitir que con una aplicación como ésta 
estamos en las fronteras de lo que puede conseguirse para 
que sea de utilidad con el BASIC en una máquina con la ve- 
locidad del Spectrum. Mis propias versiones de Archivo para 
el ZX81 incorporan pequeñas rutinas en código máquina para 
realizar las búsquedas que consumen más tiempo. Si las apli- 
caciones de bases de datos van a ser cruciales para la utili- 
zación que va a darle al Spectrum, entonces ésta será la di- 
rección que tendrá que seguir. 


5.6 Mecanografía 


No todos los programas útiles tienen que tener cientos de líneas. 
Este le dará un buen empujón a la hora de mejorar su mecanografía 
si lo utiliza adecuadamente. Es corto porque, al igual que con el pro- 
grama de Geografía que vimos anteriormente, se deja para el usuario 
la entrada y borrado del material con el que trabajará el programa, en 
forma de sentencias DATA. Por lo tanto, no aparecen los largos mó- 
dulos para realizar la entrada de los datos y para el borrado de los 
mismos. El programa sirve como recordatorio de la constante nece- 
sidad de examinar lo que se intenta realizar con el Spectrum y plan- 
tear la pregunta: ¿Tiene que ser tan sofisticado? A veces la respuesta 
es claramente sí, como en el caso de un programa que sea realmente 
de propósito general. Muchas veces es evidente que la estructura de 
un programa es tal que es muy poco probable que sea de utilidad para 
cualquier otro propósito distinto para el que fue diseñado. 


MODULO 5.6.1 

127D0>REM FLEX AAA 
1230 REM CARACTERES uUSR 

12390 REM XXXIX 
13006 RESTORE : FOR 1=0 TO 63: RE 
Ab BYTE: PORE 0USR. “"“ASEL, BYTE: NE 
XT OI: RETURN 

1535109 CATA 0,0,0,0,0,7,4 4 

1320 CATA 0,0,9,0,0,255,0,0 

15330 DATA 0,0,0,0,0,224,532,52 
1340 DATA 4d.4,4,4,4d.d,4,4 
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di DATA 32,32,52,32,392,32,32,3 
1350 CATA 4,4,7,0,0,0,9,0 

1370 DATA 0,0,255,0,0,0,0,0 

13530 DATA 52,32,224,0,0,0,0,0 
1330 RETURN 


Este módulo rellena los primeros ocho caracteres del área de grá- 
ficos definidos por el usuario con los caracteres necesarios para di- 
bujar un pequeño cuadrado alrededor de una letra. Estos cuadrados 
se utilizarán para representar las teclas sobre la pantalla. El método 
utilizado es similar al utilizado en el juego Cacería. 


MODULO 5.6.2 

IQOD>REM AXEL 
1010 REM VISUALIZAR TECLADO 

1020 REM XERAL 
1030 INK_0: PAPER 6: CLS5S DIM O 
$(32): GO SUB_ 1270 


00005. SODOr 
2000 BOoOcDooolr 
ooo 2pg0000 
O os tee 


1980 PRINT_OUER 1; AT 1,0;" 1 2 
4 5 6.7.8.8" 
1290 PRINT OUÉR 1;AT 4, 2 o 0 
EJ RR TY UU Ii. 0 
1100 PRINT OUER 1;AT 7, O; A 
SS DEB H JT KK. ar 
1119 PRINT OVER 1;AT 190,0; E 


y x 2 e E MN M IS 


Este módulo dibuja una copia rudimentaria del teclado de una 
máquina de escribir, en la parte superior de la pantalla, utilizando los 
caracteres definidos en el módulo anterior. 


Comentario 


Líneas 1044-17. Estas cadenas de letras son entradas en 
modo gráfico y de hecho crearán los perfiles de los cuadrados de las 
teclas. 

Líneas 1084-1114. Cada tecla es etiquetada con la letra principal 
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o el número que contiene. La tecla de espacio se deja en blanco y las 
teclas de CAPS SHIFT, SYMBOL SHIFT y ENTER se etiquetan con 
sus iniciales en visualización invertida. 


Comprobación del módulo 5.6.2 


Coloque temporalmente un STOP al final del módulo y entonces 
podrá visualizar un teclado reconocible sobre la pantalla. 


MODULO 5.6.3 


1400>REM AXEL AAAAAAAAEAA 
1410 REM INFORMACION PRUEBAS 
1420 REM XXXIII 
1430 CATA "ESTO ES UNA PRUEBA EN 
SPECTRUM" 

1440 DATA "TECLEE EXACTAMENTE LO 
QUE VER" 

1450 DATA "NO MIRE AL TECLADO” 
1450 DATA "STOP" 


Este módulo se utilizará para guardar los datos para los tests de 
mecanografía. Los textos individuales no deben ser más largos de 32 
caracteres. El módulo debe terminarse con una línea de DATA que 
contenga un 194 STOP, que se utiliza como una señal para volver a 
colocar el puntero de datos en el módulo siguiente. 


MODULO 5.6.4 


1120>REM REEL AAA 
1150 REM ACEPTAR ENTRACA 

1140 REM 2% 
1150 LET TOTAL=0: LET EITIEN=0 
1160 READ Añ: IF As5="STOP" THEN 
RESTORE 1430: RERC ASK 

1170 PRINT INK 1;AT 16,0,05%;¿AT 1 
5,0;AS5$" 0%: PRINT AT 17,0; 

1150 FOR I=1 TO LEN A$ 

113909 LET THS=INRKEYS: LF TELS A 


1200 560 TO 1130 

1210 LET TOTAL=TOTAL+1: BEEP .1, 
50 IF T$<>A%S1(13) THEN PRINT PAPE 
R 5;T%5;¡CHR% 3;: GO TO 1130 

1220 LET BIEN=BIEN+1 

1230 PRINT BRIGHT 1;T%; 

1240 NEXT I: PRINT AT. 21,25; INT 

(BIEN-TOTALI100) 4 

1250 INPUT "MAS? (3 ¿N) “"¡0%$: IF 

0$:<>"“N" THEN GO TO 1160 

1260 S3TOP 


Este módulo visualiza un texto que debe teclearse e invita al 
usuario a que lo copie sobre la pantalla, sin mirar al teclado real. Las 
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pulsaciones incorrectas no son aceptadas pero se mantiene un regis- 
tro de los errores, que será visualizado al final de cada texto. 


Comentario 


Línea 1166. Esta línea recorre los datos del módulo 3 y vuelve a 
posicionar el puntero al principio de los datos si se encuentra con un 
STOP. 

Líneas 118/-124(. Este bucle acepta la entrada —la variable del 
bucle se incrementa únicamente con las pulsaciones correctas. 

Línea 121/. Las pulsaciones incorrectas se visualizan para que 
pueda verlas el usuario, diferenciadas por un fondo de color cian. Ob- 
sérvese la utilización del carácter de control, CHR$8, para mover la 
posición de visualización una posición hacia atrás cuando se ha vi- 
sualizado un carácter incorrecto, por lo que la posición de visualiza- 
ción permanece en el mismo lugar cuando se ha entrado un carácter 
incorrecto. 

Línea 1230. Las pulsaciones correctas se añaden al texto que se 
está tecleando. La característica BRIGHT se coloca para que el usua- 
rio pueda comprobar que se han entrado los espacios. 


Comprobación del módulo 5.6.4 


Si ha entrado algunos datos en el módulo 3, ahora podrá ejecutar 
el programa y ver visualizado el teclado. El primer texto del área de 
datos deberá visualizarse debajo del mismo y podrá intentar reescri- 
birlo. 


Resumen 


La utilidad de este programa depende de si está dispuesto a to- 
márselo en serio. Utilizando junto con un manual para enseñar me- 
canografía que haya conseguido de una biblioteca y del que puedan 
obtenerse el tipo correcto de ejercicios, puede ser una herramienta 
muy efectiva. Para empezar probablemente encuentre más fácil li- 
mitarse a las letras mayúsculas, o minúsculas, sin mezclarlas con sig- 
nos de puntuación o símbolos. Cuando esté preparado, el programa 
tratará con caracteres mezclados y además los símbolos, con la tecla 
SYMBOL SHIFT. 
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Posibles mejoras 


1) Utilizando el método señalado en la página 131 del manual 
del Spectrum, añada una función de temporización a la en- 
trada, después modifique el programa para que pueda visua- 
lizar una serie de textos que lleguen a, por ejemplo, 140 ca- 
racteres. Anote el tiempo desde que empieza a entrar hasta 
que temine el test y tendrá, considerándolo junto con el tanto 
por ciento de pulsaciones, un buen indicador de sus pro- 
gresos. 

Modifique la visualización de forma que tan sólo visualice el 
teclado cuando cometa un error —quizás en el caso de más 
de un error en el mismo carácter— y lo elimine cuando el ca- 
rácter se haya entrado correctamente. 


2 


Sa 
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6. Y finalmente un poco de diversión. 
Juegos para el Spectrum 


Quizá se haya dado cuenta con el contenido de este libro que yo 
no considero los:¡juegos como el no va más de los ordenadores do- 
mésticos. Sospecho que, muchas veces, los juegos suelen ser el 
punto donde se encallan los que han descubierto la fascinación de los 
ordenadores, pero que todavía no han explorado las formas en que 
la potencia del microordenador puede mejorar la vida diaria. 

Sin embargo, los juegos tienen su lugar, en función de los propios 
juegos. El colocar un juego poco interesante en un micro no hace que 
éste sea mejor y los caracteres definidos por el usuario no cambian 
el hecho de que, en BASIC, el Spectrum es demasiado lento para 
ejecutar el tipo de juegos de invasores con un grado real de satisfac- 
ción. 

Los micros son excelentes con juegos que requieren pensar. A 
continuación encontrará dos juegos que dependen más de pensar que 
de la velocidad de reacción. El primero de ellos, Misil, a primera vista 
parece una copia directa del tipo de juegos de caza de extraterrestres, 
pero requiere la realización de ciertos cálculos por parte del jugador. 
A continuación viene Cacería, un interesante juego en el que hay que 
cazar una presa invisible. Finalmente, he incluido una sencilla rutina 
de clasificación que debe demostrar su utilidad para los adictos a los 
juegos de rompecabezas con palabras y otros tipos de juegos en los 
que debe utilizarse una clasificación numérica o de textos. 


6.1 Misil 


No puede ganar en este juego. Al final, los terribles extraterres- 
tres llegarán a la parte inferior de la pantalla y le destruirán. Su función 
es destruir tantos extraterrestres como pueda antes de que le destru- 
yan. Sus armas consisten en misiles capaces de transportar cabezas 
explosivas de distinta fuerza, que se disparan desde seis bases de 
misiles. Las naves extraterrestres, representadas por números del / 
al 9, descienden aleatoriamente, una línea cada vez, desde la parte 
superior de la pantalla. Si llegan a la parte inferior de la pantalla, se 
resta su fuerza del stock que tiene de cabezas explosivas. A cada 
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turno se invita al jugador a que especifique la base desde donde va 
a disparar, el ángulo que seguirá la trayectoria del misil —desde la 
posición recta hacia arriba, hasta 45” a la derecha, la altura a la que 
el misil explotará— siempre que el misil no choque antes con algo, y 
la potencia de la cabeza explosiva —que se entra como una potencia 
de 2 hasta un máximo de 4—., es decir, 16. 

Cuando el misil explota, si ha alcanzado a una nave extraterres- 
tre, destruirá la potencia de esta nave en un valor igual al doble de 
su propia potencia. A una nave extraterrestre que esté en el borde del 
cuadrado en que explota el misil, se le reducirá su fuerza en un valor 
equivalente a la potencia del misil. Las naves que estén a una dis- 
tancia de un cuadrado del lugar donde explote el misil, perderán una 
fuerza equivalente a la mitad de la potencia del misil, y así sucesi- 
vamente. Cuando la fuerza de una nave extraterrestre descienda por 
debajo de cero, desaparecerá. A cada movimiento se generan más 
extraterrestres. 

Cada cinco movimientos, una nave de suministro, representada 
por un ***”, empieza a descender desde la parte superior de la pantalla 
entre las naves extraterrestres. Si consigue aterrizar, aumentará su 
stock de cabezas explosivas en 104 unidades. Pero si en cualquier 
punto llega a estar dentro del círculo de destrucción creado por un 
misil, se perderá. La puntuación consiste en la cantidad total de daños 
infringidos por el jugador a las naves extraterrestres y el juego termina 
cuando se termina el stock de cabezas explosivas. Una complicación 
final consiste en que el jugador tiene una cantidad de tiempo limitada 
en la cual realizar cualquier entrada. Se pueden establecer niveles 
variables de dificultad. Si se excede este tiempo o se realiza una en- 
trada inapropiada, los extraterrestres descenderán una línea sin es- 
torbos. 


MODULO 6.1.1 

1000 >REM RRA 

10610 REM VARIABLES 

1020 REM EXA AA AAA 

1030 CIM A$5$1606381: CIM C%1(4,6)1: O 

IM C(4) DIM Cí4,21: DIM O%(3=1 

1040 LET C%5(1)= "BASE?" : LET CHl2 

== "ANGL.F 0: LET CR(3)="DIST.F": 

LET C%5(41="POTN." 

1050 LET U%="": LET PUNT<4 ET 

WN=100: LET S=1: LET G=1 

1060 LET D(1,17=49: LET D(1,2)=5 

4: LET 2,11 =43: LET C(2,2)=57: 

LET 635,13) =48: LET D063S,2)=57> UL 

ET D(4,1)=43: LET D(4,21=5Sd 

1070 SÓRDER. o: PRINT INE 2; PAPE 

R56S¡AT 10,3; dd 

1050 INPUT e POr favor el mn 

ivel de dificultad desado (4 
H=S00-45SeH 


"1037: "3H: LETF 
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La utilización de estas variables será explicada en el curso del 
programa. El módulo también acepta el nivel de dificultad. 


MODULO 6.1.2 

1910FREM RIIIE 
1320 REM GENERAR EXTRATERRESTRES 
1936 REM 23222 X%2%XNXRIXIL%L 
1940 LET G=G+1: FOR I=21 TO INT  ( 


RND*1(1G/5) +1) 

1250 LET A=(RNCx30+1) 

12960 LET SH=INT— (RNCx10) 

1970 LET A%5(A)=CHR%  (454+5H) 
1950 NEXT I 

1999 IF INT — ((G-5S) /10)=(G-S)-/10 
THEN LET ASA) ="=*" 

2000 PRINT AT 0,0;AK%S: RETURN 


Este módulo genera las naves extraterrestres. 


Comentario 


Línea 1946. El número de extraterrestres generados aumenta con 
el número de turnos realizados hasta el momento. 

Línea 1954. La posición de una nave extraterrestre. 

Línea 1964-1974. Se genera un carácter entre el / y el 9. 

Línea 199. Cada cinco movimientos se genera una nave de 
aprovisionamiento. 

Línea 2406. Se visualiza la tabla que contiene el tablero del juego. 


Comprobación del módulo 6.1.2 


Llamando a este módulo se debe obtener como resultado la vi- 
sualización de números aleatorios en la parte superior de la pantalla. 


MODULO 6.1.3 

2010>REM FEXEFLARAERER ERE AAA 
2020 REM MOUER PANTALLA 

2030 REM REE XXXL EEE AAA 
2040 LET A$(33 TO _6035)=A5$11 TO S 
76): LET AS(1 TO 32)=0%: PRINT A 


TO,0; AB 


El campo de juego se desplaza una línea hacia abajo de la pan- 
talla. 
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Comprobación del módulo 6.1.3 


Al llamar a este módulo después de este último, deberemos ob- 
tener como resultado el que los números generados aleatoriamente 
se muevan hacia abajo de la pantalla. 


MODULO 6.1.4 


1730>REM 
1500 REM 


114 Cor 


1570 LP -1 


Pp 

CO 

p 

a 

H 

2 

T 
ZDIOAD BAHIO* 


HIPO 


Este módulo mueve un “+”, que representa el misil del jugador, 
hacia arriba de la pantalla. 


Comentario 


Línea 1820. Se especifica el cuadrado de encima de la base. 

Líneas 1834-1944. Si no hay ningún obstáculo y la altura máxima 
especificada no ha sido obtenida, el misil se mueve 32 espacios hacia 
arriba en la tabla unidimensional y después hacia atrás un número de 
espacios que representa el ángulo con el que se moverá el misil. El 
efecto neto producido es que el misil se mueve hacia arriba y hacia 
la derecha. 


Comprobación del módulo 6.1.4 


Si entra un número en radianes, que corresponda al ángulo del 
misil (C(2)) y una altura máxima (C(3)) y un número de base (C(1)), 
entonces al llamar a este módulo, deberá ver cómo se mueve el misil 
hacia arriba de la pantalla. 


MODULO 6.1.5 

14 S50D>REM RRA 
1450 REM CICLO CE ORDENES 

1470 REM XXXIII 
1450 INR 0 PRINT AT 20,0;0%;0% 
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1430 PRINMNT AT el, ¿A PPUNT O: 


¿so "CABEZAS : 

1500 PRINMNT aT' 20 ¿»0; 
FOR I=1 TO 4d 
PRINT C5(1), 
FOR J=1 TO H+10 
LET TH=INFEYE: 
EN GO TO 1570 

15509 NEXT YU 


LE TELAS 


¿ PUNT 


TH 


1560 PRINT AT 10,5; "DEFECTO EN ” 


¡¿CSCI) 
1565 FOR H=1 TO 200: 
Us="": 60 SUE 2010: 
¿GO TO 1450 

1570 BEEP .1,20: IF 
73 THEN 0 TO 1600 
1550 IF CODE T%>5* OR 
THEN GO TO 1560 

1590 LET US5=T%: PRUSE 
1530 

1600 IF CODE T 
THEN GO TO 15 
1620 LET al 


$: 
1630 IF COCE S7? OR 
D 
L 


mo 


e | 
Eur Hn 
20m 


o 


[aa] 
0 IF 1J>0 T 
y 
L 


AS CABEZA 
O PRINT AT 
LIE 


mn 10 


Pp Ma 
PMOZP O%+- 


ABEZAS 2" sL;? 
0 *RETURN 


P- PREZPORPRO 
NS A 


DOJATA PUNA 


Este módulo acepta las órdenes del jugador e indica los fallos si 


NET Mi 
GO SUB 1910 


Ds < 


90 PRINT AT el, O; "PUNT.:" 


LET 


.. .. 
> 


OR I< 
CODE TA%:<a4ds 
25: 60 TO 
CODE T%:<45 


LE Us" 


CODE T%:<adsi 


"36 
3)>716 THEN 6 


“aj 
a] 


1727 
HAN ACABA 
PUNTUACIO 


¿ PUNT 


los valores no están dentro de los límites correctos. 


Comentario 


Líneas 151-1565. Las cuatro Órdenes, cuyos nombres están 
guardados en C$, se visualizan y después el bucle de la línea 1534 
da al jugador un corto período de tiempo en el cual debe pulsar una 
tecla. Si no se pulsa ninguna tecla, el programa considera un fallo y 


los extraterrestres se mueven hacia abajo. 


Líneas 1570-1670. En función de qué orden se esté entrando, el 


módulo comprueba que la tecla pulsada caiga dentro de los límites 
que están guardados en la tabla D. Si se exceden los límites en cual- 


quier orden, el módulo lo considera un fallo. 
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Línea 1694. El ángulo entrado se multiplica por cinco, expresado 
en radianes. 

Línea 171. Se coloca un límite superior de 16 para la potencia 
del misil, ya que valores más altos podrían generar caracteres invá- 
lidos en ciertos puntos del programa. 


Comprobación del módulo 6.1.5 


Ahora ya podrá entrar las cuatro Órdenes, dentro de los límites 
establecidos por la tabla D —línea 1/60. El programa deberá indicar 
un fallo si se exceden los límites o si no se realiza ninguna entrada. 


MODULO 6.1.6 


11S0>REM XXXIII 
1190 REM LETALIDAC 

1200 REM RF 

1210 PRINT AT 20,0;056 

1220 PRINT AT 28,5; "*CALCULANDO 

LETALIDAC=" 

1230 LET M1=INT. (M-321 

1240 LET M2=INT.— (M-32%M1) 

1250 LET R=INT (.S+LN Cl(4d1 LN 2) 

1260 FOR ¡J=M1-R TO M14+R 

1270 PRIMNT BRIGHT S35;¡AT 0,0;A5 

1230 PRIMNT BRIGHT 1;AT M1,H2-1;A 

$ (INT M) 

1230 FOR K=M2-R TO M2+Rk 

1300 IF 32% JI+K<1 OR 32%J+H>645 T 

HEN 60 TO 1400 

1310 IF Jo=D0 AND (0:<=21 ANC 5K>0 A 

NED EK:<x33 THEN PRINT BRIGHT 1; OUVE 

R 1;AT J,K-1; 

1320 IF AR COBRE DIA ='"+*" THEN GO T 

0 1400 

1330 IF AS5(32%304+K3=" “" THEN GO T 

ad 1400 

1340 LET D=ABS (EK-MZ21 

1350 IF ABS (0-M1)>AB3S (K-M2) TH 

EN LET P=ABS  (1UJ-M1) 

1360 LET E=INT.  (C( “CT2r 1D-1)331 
1370 LET ASI 32%J1+K)=CHRA%A (CODE A 
5324) -El 

1330 IF CODE AS(32%.014+EK) <4d5 THEN 

LET PUNT =PUNT+CODE AS (32: JI4+K) 2435 
: LET ABACIZIRJD+4K1I=" *” 

1390 LET PUNT=PUNT+E 

1400 NEXT K 

1410 NEXT 

1420 IF ASCINT M)="+*" THEN LET 

$LINTM)='" 

Ae INK 0: PAPER S: PRINT AT q, 
3 

1440 RETURN 


Este módulo calcula el efecto de una explosión sobre las naves 
extraterrestres. 
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Comentario 


Líneas 123-124. Las coordenadas del misil están expresadas 
en términos bidimensionales. 

Línea 1250. R es el alcance del círculo de destrucción creado por 
la explosión. 

Líneas 1260-1414. Con estos bucles, las posiciones de los ca- 
racteres que estén dentro de un rango de un radio R del punto de 
explosión del misil son examinados. Si la posición que se está exa- 
minando está vacía o contiene el propio misil, no se realiza ninguna 
acción. Si la posición contiene una de las naves extraterrestres, se 
decrementa su valor de acuerdo con la potencia del misil y la distancia 
a que se encuentra de la nave extraterrestre. Si el valor de la nave 
ha quedado reducido a menos de cero, se eliminará la nave corres- 
pondiente. 


Comprobación del módulo 6.1.6 


Llamando a este módulo después del módulo 4, deberá dar como 
resultado la visualización de un cuadrado sobreiluminado en la pan- 
talla, en la última posición ocupada por el misil, siendo el tamaño del 
cuadrado dependiente de la potencia del misil. 


MODULO 6.1.7 

2050>REM EXEXELLAAERAAIAAAAAIAAAIAAZA 
20560 REM PENALIZACIONES “Y BONOS 
2070 REM EXEAFEAEAAE LEAR 
2050 1F AS IS577? TO 603) =0% THEN E 
ETURN 

2090 FOR I=0 TO =31 

2100 IF ASIS 7 74+T)3="%" THEN LET LU 
=114+100 

2110 IF CODE AS (57 7+1)>42 THEN L 
ET lJ=IJ-CODE ASIS 774+TII +45 

2120 NEXT I 

2130 LET A$5$(577? TO 60858)=0%: PRIN 
TO OAT 13,0,0% 

2140 PRINT AT 0,0 $ 


¿0;0 
2150 1F 1>0 THEN RETURN 
2160 PRINT AT 10,3;"EL ATAQUE Ex 
TRATERRESTRE TRIUNFA" 
2170 PRINT AT 11,9; "ESTAS MUERTO 


2150 PRINT AT 12,7; “LA PUNTUACIO 


En el caso de que las naves extraterrestres alcancen la parte in- 
ferior de la pantalla, este módulo resta el valor de las naves del stock 
de cabezas explosivas del jugador. 
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MODULO 6.1.8 


1IO0ID>)REM RAIZ 
1100 REM BUCLE PRINCIPAL 

1110 REN XXXIX 
1120 PRINT AT_19,0; "Hainan 
sonflnneaaEananEasinis” 

11350 GO SUB56 13910 

gp INK 0: PAPER 5: PRINT ART 2Qwp9, 
1150 PRINT AT 20,0;0%;0% 

1170 GO SUE 1470: GO SUB 1320: 6 
O SUBE 1150: GO SUB 2010: GO SUB 

1919: GO TO 21150 


Este módulo visualiza las bases en la parte inferior de la pantalla 
y después llama secuencialmente las distintas rutinas. 


Comprobación del módulo 6.1.8 


Ahora ya podrá realizar el juego. 


Resumen 


Este no es un juego rápido, pero vale la pena entrarlo por el sen- 
cillo motivo de que es apasionante en extremo. Cuando se juega con 
los niveles más altos de dificultad, el jugador está constantemente 
bajo presión a la hora de tomar decisiones y a cada nivel, una pun- 
tuación respetable (1504 o más) requiere rapidez de pensamiento y 
la realización de cálculos precisos. 

El programa también proporciona un ejemplo de cómo puede uti- 
lizarse una tabla unidimensional para guardar un juego que ocupe la 
totalidad de la pantalla y manipularlo fácilmente. El método de dar una 
entrada temporizada en las líneas 1530-1550 será de utilidad en una 
gran variedad de juegos en los que se desee poner al jugador bajo 
cierta presión. 


Posibles mejoras 


1) Este es un programa que pide a gritos que sea complemen- 
tado con algunos gráficos definidos por el usuario. Podrían de- 
finirse los caracteres correspondientes a los misiles y a las 
distintas naves extraterrestres. En este caso, las líneas 1374 
y 1384 necesitarían modificarse para que los caracteres pro- 
cedieran de una base de CODE 144 en lugar de 48. 
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6.2 Cacería 


Este es un juego enfurecedor que le hará dudar de su estado 
mental o de si el Spectrum funciona correctamente. Es un juego que 
se lleva a cabo sobre un tablero de 34 por 18, y en uno de los cua- 
drados se esconde la presa invisible. Su trabajo será seguir y des- 
cubrir a la presa, pero cada vez que haga un intento, la presa realizará 
un movimiento secreto. Sus únicas ventajas son que el movimiento 
de la presa es siempre el mismo dentro de la misma partida y que 
tendrá un indicador especial que le mostrará la dirección de la presa 
cada vez que haga un intento de adivinar su posición. Las instruccio- 
nes completas se visualizan en el propio juego. 

Como táctica, es inteligente el tratar los dos componentes del mo- 
vimiento de la presa —vertical y horizontal— por separado e intentar 
identificar uno de ellos antes de que nos distraigamos con el otro. Hay 
que tener mucho cuidado para asegurarnos de que se ha determinado 
la dirección correcta en que se mueve la presa. Es muy fácil trabajar 
sobre la suposición de que la presa se mueve sobre el tablero de 
izquierda a derecha —basándonos en dos o tres intentos y la clave 
correspondiente— mientras que en realidad todo el rato se estaba 
moviendo en la dirección opuesta. 


MODULO 6.2.1 

2130>REM RARE 

2199 REM CARACTERES USR 

2200 REM REIR 

2210 RESTORE : FOR I=1 TO S: FOR 
J=0 TO Y: READ 6: POKE USR CHRS% 
(14:34+1)3+,6: NEXT dJ: NEXT I: RE 


TURN 

2220 DATA BIN 000400000,E6IN 01111 
000,B65IN 01100000,5IN 01010000,61 
N 01001000,6IN 00000100,5IN 0000 
0010,B5IN 00000001 

22:30 CATA GIN 00001000,B6IN 0006011 
100,565IN 00101010,56I1IN 41001001,61 
N 00001000,6IN 060001000,561IN 0009 
1000,BIN 00001000 

2240 DATA GIN 00000000,B6IN 00011 
110,6IN 00000110,56IN 000010140,B61I 
MN 900010010.,6I1IN eG1004010,E6IN 0100 
0000.,.BIN 10000000 

22530 DATA B6BIN 00010000,E6IN 00100 
000,E65IN 01000000,61IN 11111111,61I 
N 01000000,6IN 00100000,BIN 0001 
90000,5IN 0000000 

2250 CATA GIN 00001000,B65IN 00090 
100,565IN 00000010,61IN 11111111,61 
N 00000010,56I1IN 00000100,EIN 0000 
1000,EIN 000010090 

270 DATA GIN 00000001,6IN 00000 
10,565IN 00000100,6IN 01001000,561 
01010000,56IN 01100000,B6IN 0111 
250 ar 20000000 


2 
pa] 
NW 
[7 
2 0 DATA BIN 0260001000,565IN 00601 
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¿BIN 000601000,56IN 00001000,561I 
1001001,BIN 20191010, 6 In a0n1 
¿BIN 30081000 

CATA GIN 100008000,56IN 01000 
¿GIN 00100000,56IN 00010010,B6I 
0001010,5651IN 00000110,61IN 00009 
1,6IN 200000000 


Este módulo carga los ocho primeros caracteres definidos por el 
usuario con nueve flechas que se utilizarán para indicar la dirección 


de la presa. 


Comprobación del módulo 6.2.1 


Al ejecutar este módulo deberán rellenarse los espacios A a H en 


el área definida por el usuario, mediante flechas. 


MODULO 6.2.2 

1SOOREMN XXXIII 

19106 REM INSTRUCCIONES 

1329 a E TE PEAD 

1330 PRIMNT INK 3G¡AT 0,11;' 

1940 PRINT ''Este ez un juego de 

caceria." “C'"ElL terreno de caza ez 
un" "tablero de 13 xx O, 7 La 

Presa e3 invisible.” 

1350 PRINT “En cada turna la pr 

esa hace un" "movimiento secreto 

« Este no" “cambia durante una Ct 

aceria.” 

1960 PRINMNT "Puede ser de hasta 

3ei3a espacios" ""arritba Oo abajo y 
otros tantos a'"”“'"la izquierda 0 
a la derecha.” 

1970 PRIMT "“Ppise una tecla par 

3 al E PAUSE E 
O, e BA 

1950 PRINT ?17' Cada turno consiz 

te en: 

13390 PRIMT 11 Una invitacion as 
que entre su" "estimacion de La 
Posicion de La"? "presa." 

20600 PRINT "21 Aparecera unao>fFL 

echa en la"? "casilla especificad 

3, indicando" "la dirección de Ll 

a preza.”" 

2010 PRIMWNT “31 La presa 3£ move 

el — INN 

2020 PRIMT "“Epulse una tecla par 

a continuar." : PAUSE 0: CELS 

2030 PRINT "AL inicio de cada 

turmo tiene la" ”?'"oportunidad de 

revisar como ha' "ido la caceria 
hasta el momento.” 

2040 PRIMT "Esto ze consigue en 

trando 0" 7*"“"cuando se pide la coo 

rdenada'" “ “UERT." 

2050 PRINMNT “*“"Piede empezar la re 
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cision en”? '"'cual quier j¡Uudada pre 
via pero” “tiene un Limite de re 
vision de' “20 ¡udadas Por cacer 
13.2” 

2060 PRIMWMT "Estas 20 revisionez 
pueden" "tomarse Je una vez 0 Pp 
or partez.”" 

20750 PRIMT “Enualzar una tecla pa 
ra empezar": PRAUSE 0: RETURN 


Constituye la totalidad de las instrucciones del juego. El incluirlas 
o no en este juego, o en otros juegos que vaya a diseñar, depende 
de quién vaya a:jugar. 


MODULO 6.2.3 


2050>REH XA RIAAARAAAAAAAAAAA 
2030 REM ESTABLECER DIFICULTAD 


2100 RENO FREIRE 
2119 CL>3 

2120 PRIMT. 7?77'"Hagyg un factor de 
dificultad"? "previsto en el ¡Uuedg 
a 

2130 PRIMNT ?'"Conzizte en un movi 
miento" "aL azar de vez en cuand 
DA 

2140 PRIMT "El factor de difico 
Ltad va de 0" "hasta 10.” 

2150 PRIMT "A es ningun mozimiái 
nto aL azara” 

2160 INPUT IMHE 6; “Entre por Favo 
r el factor de" “'"dificultad dese 
ado: ",E 

174 LET E=(11-El :*2+2+100:% [1E=01 : 
CL3 RETUR PE 


Este módulo establece el factor de dificultad. Si se entra un cero, 
el movimiento aleatorio se realiza tan sólo tras cien movimientos —y 
entonces el juego ya se habrá terminado. 


MODULO 6.2.4 

1000:60 SUE 219290: BORDER 0: INK 

1: PAPER ?: PRINT AT 10, 12; "Mila 

TAN 

1010 INPUT "Quiere instruciones” 
CATA EN CLS : IF G="S" OR (€) 

$="35" THEN GO SUB 1910 

10620 60 SUB 2050 

1030 REM 23233 

1040 REM VARTABGLES 


1050 REM RIFA 
1060 LET A=5: LET C=20: LET Cl=4 
¿ LET T=0: DIM M41(100,4): DIM 05€ 


1070 LET R1=5-INT (RND*13) 
1050 LET RFRe=5-INT” (RND*13) 
10390 LET F1=INT (RNDx15+1) 
1100 LET P2=INT" (RNC:*30+1) 
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Este módulo presenta la opción de obtener las instrucciones e 
inicializar las distintas tablas en las que se basará el programa. 


MODULO 6.2.5 


20 REM TABLERO INICIAL 

30 REM XXXIII 
+0 CELS 3 :<LEF As="1234567590122 
Br53012:345575390": PRINT " "¿A 
509 FOR I=1 TO 15: PRINT ascía 
EXT 1: GO SUB 21370 


LL: 
e 
LE 
IT 
43 
( 
ru 


Este módulo visualiza una serie de números alrededor del ta- 
blero, que sirven de guía al usuario. 


MODULO 6.2.6 


1A3ITFO>REM REIR 

1350 REM LISUALTITZAR TABLERO Y 
JUGACA 

1390 REM 222% 

1400 PAPER S: INE. 1 

1410 FOR 1I=1 TO 929: PFRIMT AT. TIxz2 


7 'NHoONDOASOaA,annonaaA y 
1420 PRINT =1pn 132,1; MB NNMBDOO 
DoONOoONnAa E : MEXT I 
1430 INK 1: PAPER 

1440 PRINT AT 19,0; Ob; O$;: Os 


1450 IF T=0 THEN RETURN 

1450 PRIMT AT M1,M2;¡CHRS% (14:3+0) 

1470 IF A<>51 THEN RETURN 

1430. _1F T+«E= o A E THEN PRINT 
e . HR 


1430 RETÚRN 


Este módulo visualiza el tablero sobre el que se realizará el juego. 
También visualiza la flecha definida por el usuario correspondiente, 
para un movimiento determinado e informa al usuario si se va a rea- 
lizar un movimiento aleatorio. 


Comprobación del módulo 6.2.6 


Aunque muchas de las variables todavía no se han definido, si 
se coloca temporalmente un STOP en la línea 1164 podrá ejecutar el 
programa, inspeccionar las instrucciones, especificar un nivel de di- 
ficultad y ver cómo se visualizan sobre la pantalla, el tablero y la re- 
tícula correspondiente. 
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MODULO 6.2.7 


1160>REM RAEE 
1170 REM ENTRACAS Y DIRECCIONES 
11530 REN 2% XE FFAA 
1130 INK 0: LET T=T+2: IF T>100 

THEN CL3 : PRINT AT 210,0;"LO SIE 

NTO-SE ACABARON LAS JUGAD.": STO 

P 

1200 LET QDg="" 

1210 PRINT AT 19,23; “"JUG. *";T 

1220 PRINT AT 21,17;" (0 P, REVUIS 

ARI" 

1230 PRINT AT 19,1; "UERT:";: INP 

UT M1: PRINT M1 

1240 IF M1>15 OR MmM1<0 THEN PRINT 
">FUERA MARGEN": PRINT AT 19,0; 

O$5$: GO TO 1210 

1250 PRINT AT 20,0;0%: IF M1=0 

THEN GO SUB 1660: GO TO 1210 


) 


12609 PRINT AT 21,0;0%;¡AT 20,1;"H 

ORIZ.:";: INPUT Ma: PRINT M2 

1270 IF M2>30 OR M2:<1 THEN PRINT 
“>FUERA MARGEN";AT 20,0;05: 60 

TO 1250 

1250 PRINT AT 21.0;0% 

12390 LET M(T,1)=M1: LET M(T,2)=M 


1300 IF M1=P1 ANC M2ea=P2 THEN GOD 
1310 LET M3=(M1<P21) - (M1>P1) +1 


1320 LET Md4= (M2<P2) - (M2>P2) +2 
1330 LET D=MHM3x3+M4a 

1340 IF D>4 THEN LET D=D-1 

1330 LET MIiT,S3!=0 

1350 60 SUB 1370: GO SUB 1530: G 
O TO 119%0 


Este módulo acepta la suposición del usuario para adivinar la po- 
sición de la presa y la guarda para una revisión posterior. Se calcula 
la flecha definida por el usuario correspondiente, para indicar la di- 
rección de la posición real. 


Comentario 


Línea 129. El movimiento del jugador se guarda en la tabla M. 

Líneas 131-1350. Estas líneas convierten la dirección de la 
presa representada por P1 y P2, en la flecha correspondiente. Esto 
también se guarda en la tabla M en lugar correspondiente al movi- 
miento actual. 


Comprobación del módulo 6.2.7 
Ahora ya puede definir una suposición de la posición de la presa 
y deberá aparecer una flecha indicando aproximadamente la dirección 


correcta —que puede comprobarse mediante P1 y P2—. El programa 
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no tiene que aceptar movimientos que caigan fuera de los límites del 
teclado. 


MODULO 6.2.8 


1I5S0O0>REM REX 
1510 REM INCREMENTAR MOUIMIENTO 
1520 REM RX AAXIFAAEAAIEAAAAAAAAA 
1550 LET P1=P1+R1: LET P2=P24+R2 
13d .12F TYE<FINTP TTYEJ) THEN 60 T 
DO 1570 

1550 LET P1=INT— (P1+4RNCDx6+1): LE 
T P2=INT (P1I+4FNDx*6+1) 


15560 PRINT AT 21,0; "RENANCIUNCRAIS 
1570 LET P1=P1+18% (P1<1) -153%(P1> 
1550 LET P2=P24+30% 1P2<1) -30% 1(P2> 
1830 RETURN 


Este módulo realiza los movimientos de la presa, incluyendo el 
movimiento aleatorio cuando sea necesario. 


Comentario 


Línea 153. P1 y P2 son las coordenadas de la presa. R1 y R2 
son los elementos del movimiento aleatorio que se suman a P1 y a 
P2 a cada movimiento, y que se establecen en la sección de variables. 

Línea 1546. La variable E se coloca de acuerdo con el nivel de 
dificultad. Cada E movimientos se realiza el movimiento aleatorio, au- 
mentando la dificultad. 

Líneas 1570-1586. Estas dos líneas aseguran que si la presa se 
mueve fuera del tablero en cualquier dirección, vuelve a aparecer por 
el otro lado del mismo —un efecto envolvente. 


Comprobación del módulo 6.2.8 


Ahora ya podrá entrar una serie de movimientos. 


MODULO 6.2.9 


1I6DO>REM ARIAS 
1610 REM EXITO POR FIN 

1620 REM. XXXIII 
1630 PRINT AT 10,13; '"'CAZADO! " 
1640 INPUT "Otro juego? (SS, NH)",0 
$: IF O%="S" THEN GO TO 10530 
16530 STOP 
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Este módulo anuncia el éxito del jugador cuando se encuentra la 
presa. 


Comprobación del modulo 6.2.9 


En lugar de esperar a descubrir la presa, ejecute el juego y, 
cuando se le pida que entre la posición, detenga el programa con un 
STOP y visualice P1 y P2 en modo directo. Inicialice de nuevo el pro- 
grama con un GOTO 1194 y entre las coordenadas correctas, con lo 
que se producirá la llamada de este módulo. 


MODULO 6.2.10 


1650>;REM US TO De Eco 
1670 REM REVISIÓN DE JUES 

1650 REH ME 
6390 LET A=1l: PRINT AT 139,0;05%;50 


E 

$:;05% 

1700 IF C1s=2 THEN GO_ TO 1750 

1710 PRINT AT 6,13; "MAA 

1720 PRINT AT 3.4; “REY. PERMITIOC 

RA ";¡C0;” JUGADAS * 

1 30 PRINT AT 10,3; "UTILIZADAS ” 
1 


1740 PRINT AT 13,1; “ULTIMA JUG. 
FUE LA: “";T-1 

1750 PRIMT AT 21,1; "ENTRAR PRIM. 
MG. A RPREVIS.:"¡: INPUT Til: PRI 
HT TI 

1760 FOR 2=T1 TO T-1 

1770 LET C1=C1+1 

1750 1F C1:C THEN PRIMT AT 10,4; 
MASOTACAS LAS REUTISTONE SE 

E 200: GO TO 1350 

179290 LET Mlil=H(010,11: LET M2=MúJ),= 
EL LETS DS AA) 

1500 60 SUE 137 

1510 PRINMWNT AT 19,6; "REL ISION QJUG6 
ADBA:UAJ 

1320 PRINT AT 21,20; (4 SALIR" 
1330 INPUT 0%: PRINT AT 123,0; 0%; 
O*5;O% 

134140 1F 0%="0" THEN 50 TO 1560 
1550 NEXT 1 

1560 LET T=T-1 

137B LET Mm1=H1(T,1): LET Ha=HMtT,>2 
Po LET D=SMA Ts) 

13530 60 SUB 1370 

13390 LET A=0: RETLUR? 


Quizá se haya preguntado por qué cada movimiento y su flecha 
correspondiente se guardan en la tabla M. Este módulo utiliza los da- 
tos guardados en M para reconstruir los movimientos y las claves da- 
das anteriormente para su reexamen. 
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Comprobación del módulo 6.2.10 


Ahora ya podrá llamar al módulo que realiza la repetición de los 
movimientos previos, entrando un cero cuando se le pida la coorde- 
nada vertical. Si este módulo es correcto, el programa ya está listo 
para su utilización. 


Resumen 


Este juego es un clásico ejemplo de un programa que se va «vis- 
tiendo». El juego empezó con algo muy pequeño que cabía en un K 
de memoria del ZX81. Era divertido de jugar por lo que el tablero se 
fue ampliando para que fuese más interesante. Entonces, debido a 
que llegó a ser demasiado difícil, se añadió la función de repetición. 
Finalmente, el movimiento aleatorio completó el proceso. La moraleja 
es que siempre vale la pena jugar con ideas sencillas, incluso aunque 
parezcan demasiado triviales, ya que con un poco de guarnición po- 
dría tener el sucesor de Invasores del Espacio en sus manos. 


Posibles mejoras 


1) Una mejora definitiva sería la posibilidad de un final del juego 
que permitiese volver a ver los movimientos, junto con la po- 
sición de la presa a cada turno. 


6.3 Clasificación de palabras 


Si le gustan los juegos de palabras, y no le importa esperar un 
par de horas, necesitará una rutina de clasificación de textos. Es un 
eficiente método de clasificación capaz de disminuir el tiempo nece- 
sario para ordenar elementos. 


MODULO 6.3.1 
14560>REM 


EE LEXEREENEREEARERES 
1500 LET AZ IMP CEN NYLN 272  LET 


1510 LET F=INT (F.-21: IF F=2 THE 
1520 LET D=M-F: LET B=1 
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7 - LAWRENCE-Spectrum 


1540 LET E=A+F: IF ASIA) <ASITE) T 
HEN GO TO 1570 

15509 LET B=6+1: IF 6G>D THEN GO T 
o 1510 


55 GÓ TO 1530 

1570 LET TS$=A$[(A): LET ASIA)=AS(L 
El LET ASE) =TS5s 

155350 LET A=A-F: 1F A<1 THEN GO T 
o 1550 

1590 60 TO 1340 


Este módulo merece un estudio detallado. Hasta ahora hemos 
utilizado una variedad de métodos para evitar la clasificación del ma- 
terial, prefiriendo encontrar el lugar correcto para un elemento cada 
vez. Este lugar se guarda en una tabla de punteros en lugar de poner 
por orden la tabla principal. Cuando deben entrarse un gran número 
de elementos pequeños esto puede llegar a ser un proceso engo- 
rroso, con una tediosa espera después de cada entrada, hasta que 
se encuentre el lugar correcto. En estas circustancias es mucho mejor 
entrar los datos en cualquier orden en que aparezcan y clasificar des- 
pués los elementos que se han entrado. 

Muchos programas utilizan una clasificación y muchos de estos 
programas de clasificación utilizados en casa llevan programas real- 
mente ineficientes. No se trata meramente de un problema de estilo; 
una clasificación ineficiente en un programa bastante sencillo puede 
ser fácilmente el proceso más largo, requiriendo un pesado período 
de espera cada vez que se entran los nuevos elementos de los datos. 
Un programa destinado al predecesor del Spectrum, el ZX81, publi- 
cado en una importante revista, necesitó 24 minutos para clasificar 
cien elementos de datos por orden alfabético. El método utilizado en 
este módulo reduce este tiempo a tres minutos. 

El método de clasificación utilizado se conoce con el nombre de 
Shell-Metzner. Funciona a base de recorrer los datos que hay que 
clasificar, comparando parejas que deberán intercambiarse si están 
en orden incorrecto. Para empezar, la distancia entre los elementos 
de cada pareja es la mayor potencia de dos que es menor que el 
número total de datos. La clasificación empieza con el primero y com- 
para el dato en esta posición, con, por ejemplo el que está en la po- 
sición 64, en el caso de 1W/ datos. Los datos se van recorriendo hasta 
que no hay más posibles parejas que estén a esta distancia. El in- 
tervalo entonces se reduce y la comparación de parejas empieza de 
nuevo por el principio. 

Una de las mejores formas para comprender este método de cla- 
sificación con detalle, es escribir los números del 1 al 24 sobre tiras 
de papel y después, con una libreta a mano para registrar las varia- 
bles, realizar la clasificación, basándose en este módulo como si se 
tratase del Spectrum. Cuando haya terminado quizá siga encontrando 
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difícil ver el porqué funciona, pero así es y es uno de los métodos de 
clasificación disponibles más eficientes. 


Comentario 


Líneas 150-151. Estas dos líneas encuentran la mayor poten- 
cia de 2 que es menor que el número total de elementos que hay que 
clasificar —de hecho menos uno. 

Línea 1524. D es un indicador; si la separación actual entre los 
elementos de las parejas es F, entonces el primer elemento del último 
par posible estará en N-F. B guarda el primer elemento de la pareja 
actual. 

Línea 1544. A$ se dimensiona con N elementos. Obsérvese que 
los elementos se están clasificando en orden inverso de su longitud, 
en el caso de este módulo. 

Línea 1570. Esta línea realiza el intercambio si la línea 154f ha 
descubierto que los elementos de la pareja están en orden incorrecto. 

Línea 1586. En el caso de que un elemento haya sido intercam- 
biado hacia atrás, por ejemplo el elemento 82 por el 56M, el módulo 
vuelve hacia atrás para examinar la pareja a la cual corresponde 
ahora el segundo elemento es decir 18/56. 


Comprobación del módulo 6.3.1 
No podrá comprobar esta rutina hasta que desarrolle un pro- 
grama que necesite utilizar una clasificación. El programa puede cam- 


biarse fácilmente para que clasifique números en lugar de textos, di- 
mensionando una variable A con N elementos. 
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Conclusión 


Si ha analizado la totalidad de los programas de este libro, aparte 
de merecer una medalla de algún tipo, ahora será el orgulloso po- 
seedor de una biblioteca de programas. Ciertamente, no se trata de 
la mayor biblioteca de la historia de los ordenadores, pero contiene 
las herramientas para emprender una amplia variedad de tareas con 
sólo adaptar los programas a sus propias exigencias específicas. Ade- 
más de esto, es una indicación, una pista —no más— de lo que el 
Spectrum puede llegar a realizar para usted. 

Los programas de este libro son ideas que funcionaron para mí, 
que me interesaron, que resolvieron los problemas que tuve. Ya que 
son mías, a algunas de ellas quizá les falte algo cuando las aplique 
a sus propios problemas. En este caso cámbielas, mutílelas, descom- 
póngalas en piezas. Serán mucho mejores cuando las haya hecho a 
su medida. 
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Indice de módulos 


Los números que hay a continuación de las entradas del índice se correspon- 
den con los números de los módulos. 


AND 
Utilización de, para controlar la visualización: 2.2.7 


TABLAS 

Cambios de elementos: 1.1.8/2.1.12 

Borrado de elementos: 
1.1.9/2.2.10/2.3.5/2.1.13/3.1.8/4.1.INTRO/4.1.7/5.2.7/5.2.10 

Diferentes tipos de datos que contienen: 2.1.5/2.1.11 

Dimensionado en función de la memoria: 4.1.2 

Inserción de elementos: 2.3.3/4.1.INTRO/4.1.5/5.2.5 

Simulación de la visualización en pantalla: 3.1.5/6.1.2/6.1.3/6.1.4/6.1.6/6.1.7 
Bidimensionales: 4.1.INTRO 

Tridimensionales: 2.1.4 


ATTR: 3.4.4. 
BACKSPACING (espacio hacia atrás): 5.6.4 
CIRCLE: 3.3.4 


ORDENES DE COLOR: 1.1.1/3.4.5 
Utilización en el formateado: 2.1.10 


CURSOR: 3.1.5/3.3.2/3.4.2/3.5.4/3.4.3/4.3.4 
SENTENCIA DATA: 4.3.4/5.6.3 


ALMACENAJE DE DATOS 
Formas de: 1.1.INTRO 


FUNCIONES DEFINIDAS: 1.1.2 
MODULOS DE VISUALIZACION: 2.1.10/2.2.8/2.3.4/5.1.9/5.2.9 


DIBUJO 

Líneas 3.3.1 

Gráfica lineal: 5.3.5 

Paralelogramo: 3.3.7 

Problema de líneas más largas que la pantalla: 3.5.3 
Rotación de dibujos: 3.5.5 
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Escalado de los dibujos: 3.5.5 

Almacenaje de coordenadas en textos: 3.5.4 
Cuadrado: 3.3.8 

Triángulo: 3.3.6 


FORMATEADO 

Valores numéricos: 2.1.8/2.3.2/2.2.7 
Mensajes: 2.1.1 

Textos sacados de tablas: 1.1.2 

Tablas de datos: 2.1.10 

Utilización del color para: 2.1.10 

Utilización de variables de bucle: 2.1.10/4.2.8 


SENTENCIAS IF 
En líneas multisentencias: 2.3..INTRO 


MODULOS DE ENTRADA: 
1.1.4/2.1.3/2.1.4/2.1.6/2.1.7/2.2.5/2.3.3/5.1.3/5.2.3/5.3.4 


ENTRADAS 
Temporizadas: 6.1.5 
Comprobación: 2.1.1 


CONDICIONES LOGICAS 
Utilización como valores: 1.1.5/3.1.5 


MENU 


Necesidad: 1.1.1 
Sin borrar la pantalla: 3.3.3 


TEXTOS COMPACTADOS 
Creación y salvaguarda: 3.4.6 
Carga desde cinta: 4.2.5 
Revisualización: 3.4.7/4.2.3 


POSICION DE PRINT 
Registro de: 6.3.8 


MENSAJES: 2.1.1 


NUMEROS ALEATORIOS 
Rango de: 4.1.8 


RESTORE: 2.1.2 


SAVE 
Función del programa para: 1.1.1 


SCREENS$ 
Utilización de, para guardar la visualización: 3.3.9 


MODULOS DE BUSQUEDA: 1.1.5/4.1.4/5.2.4 
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BUSQUEDA 
De combinaciones de caracteres: 1.1.7 
Clasificación: 6.3.4 


TEXTOS 

Como registros de formatos fijos: 2.3.3 
Indicadores de longitud: 1.1.2 

Almacenaje de fórmulas en: 5.1.5/5.1.6 
Almacenaje de valores numéricos en: 1.1.5 


CARACTERES DEFINIDOS POR EL USUARIO 
Colocación en memoria: 3.1.2/6.2.1/3.1.7/5.6.1 
Carga desde cinta: 3.2.3 

Guardar en cinta: 3.1.9/3.2.5 


BUSQUEDA DE USUARIO: 1.1.6/6.1.6 
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Programas prácticos para el Amstrad 
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Programas prácticos para el Spectrum está ba- 
sado en una colección de sólidos y sofisticados pro- 
gramas que tratan sobre temas como almacenaje de 
datos, finanzas, cálculos, gráficas, gestión doméstica 
y educación. 

Cada uno de los programas está explicado con 
detalle, línea a línea, a la vez que construido a base 
de subrutinas y módulos de propósito general que, 
una vez comprendidos, pueden formar la base de 
cualquier otro programa que necesite escribir. 

Con el análisis explicativo de cada subrutina 
aparecen técnicas avanzadas de programación. El 
resultado no sólo es el avance en cuanto a sus técni- 
cas de programación, sino también el obtener una 
gran variedad de programas prácticos de aplicación 
que de otra forma tan sólo serían accesibles para 
aquellos que estuvieran dispuestos a comprar cas- 
settes o los que fueran capaces de escribir progra- 
mas sustanciales por sí mismos. 
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